Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÈçºÎÓÃVB²Ù×÷Excelת»»ÎªXML¸ñʽ£¨½éÉÜ×ÊÁÏÒ²Óз֣©

¶ÔÓÚEXCELÎļþµÄÄÚÈÝ£¬Ï£Íû°´ÕÕÒ»¶¨¸ñʽת»»ÎªxmlÎļþ£¬EXCELÄÚÈÝÀýÈ磺

Voucher_Id Oper Entry_Id ZhaiYao Acc_Code JieFang DaiFang fName1 fNeiRong1 fName2 fNeiRong2
1 Admin 1 ²âÊÔÕªÒª 540401 1000 ²¿ÃÅ 02005 ÏîÄ¿¹¤³Ì 02005001
1 Admin 2 ²âÊÔÕªÒª 100101 1000
2 Admin2 1 ²âÊÔÕªÒª2 540402 900 ²¿ÃÅ 02005 ÏîÄ¿¹¤³Ì 02005001
2 Admin2 2 ²âÊÔÕªÒª2 100101 900

ת»»ÎªxmlÎļþµÄÄÚÈÝΪ£º
<?xml version="1.0" encoding="gb2312"?>
<interface>
<voucher id="">
<voucher_head>
<Voucher_Id>1 </Voucher_Id>
<Oper>Admin </Oper>
</voucher_head>
<voucher_body>
<entry>
<Entry_id>1 </Entry_id>
<ZhaiYao>²âÊÔÕªÒª </ZhaiYao>
<acc_code>540401 </acc_code>
<jiefang>1000 </jiefang>
<daifang>0 </daifang>
<auxiliary_accounting>
<item name="²¿ÃÅ">02005 </item>
<item name="ÏîÄ¿¹¤³Ì">02005001 </item>
</auxiliary_accounting>
</entry>
<entry>
<Entry_Id>2 </Entry_Id>
<ZhaiYao>²âÊÔÕªÒª </ZhaiYao>
<Acc_Code>100101 </Acc_Code>
<JieFang>0 &


Ïà¹ØÎÊ´ð£º

asp.net(vb)ÎÊÌâ

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

vb´òÓ¡ÎÊÌâ

´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ


printer.print "dsff"
.....
....


Printer.EndDoc


´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ

sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......

¿´µ½VB°æÄÇЩܽÈؽã·òʽµÄ¼Ò»ïÎҾͶñÐÄ

Ò»¸ö¸öΪÁ˳öÃû¾ÓȻʹÓÃ×Ô¼ºµÄÕÕƬ³öÀ´ÕÐÒ¡,Çî·èÁË°É
©°©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤My ѸÀ׵ȼ¶©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©´




so what? disturbed you?

´ó¸ÅºÃ¶àÖ»ÓгõÖбÏÒµ

ÊDz ......

ÈçºÎÓÃvb實現ÒÔÏÂ邏輯?

³ö錯µÄ時ºòÈ¥執ÐÐÒ»¶Î´ú碼Ö®áá,Ôٻص½³ö錯µÄµØ·½½ÓÖøÍùÏÂ執ÐÐ

ÈçºÎÓÃvb來實現?
Sub FFFFFFF()

AAAA:
On Error goto BBBB
....
.... ......

VB ²éѯÓï¾ä³ö´í

VB code:
'sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ