Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 &


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

¿´µ½VB°æÄÇÐ©Ü½ÈØ½ã·òʽµÄ¼Ò»ïÎҾͶñÐÄ

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




so what? disturbed you?

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

ÊDz ......

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

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

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

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

VB Êó±êÒÆ¶¯Ê¼þ

ÎÒÏëÔÚÊó±êÒÆÖÁÃüÁî°´Å¥ÉÏ£¬µ¯³öÒ»¸öÌáʾ¿ò£¬µ«²»ÖªÈçºÎŪ£¬Çë×ö¸öʾÀý

tooltip

лл£¡ÎÒÊÇÐÂÊÖ£¬ÄÜ˵µÃÏêϸЩÂð£¿×îºÃÓиöÀý×Ó

Command1.ToolTipText="xxx"

ÎÒÔÚcommandÖп´µ½ÕâÑù²»ÄÜʵÏÖ ......

vbÑ­»·

Option Explicit
Dim N As Integer
Private Sub Command1_Click()
    Dim A As Integer, B As Integer
    A = 2: B = 3
    For N = 1 To 6
      ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ