ÈçºÎÓÃ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 &
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Ò»¸ö¸öΪÁ˳öÃû¾ÓȻʹÓÃ×Ô¼ºµÄÕÕÆ¬³öÀ´ÕÐÒ¡,Çî·èÁ˰É
©°©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤My ѸÀ׵ȼ¶©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©´
so what? disturbed you?
´ó¸ÅºÃ¶àÖ»ÓгõÖбÏÒµ
ÊDz ......
³ö錯µÄ時ºòÈ¥執ÐÐÒ»¶Î´ú碼Ö®áá,Ôٻص½³ö錯µÄµØ·½½ÓÖøÍùÏÂ執ÐÐ
ÈçºÎÓÃvb來實現?
Sub FFFFFFF()
AAAA:
On Error goto BBBB
....
.... ......
ÎÒÏëÔÚÊó±êÒÆÖÁÃüÁî°´Å¥ÉÏ£¬µ¯³öÒ»¸öÌáʾ¿ò£¬µ«²»ÖªÈçºÎŪ£¬Çë×ö¸öʾÀý
tooltip
лл£¡ÎÒÊÇÐÂÊÖ£¬ÄÜ˵µÃÏêϸЩÂð£¿×îºÃÓиöÀý×Ó
Command1.ToolTipText="xxx"
ÎÒÔÚcommandÖп´µ½ÕâÑù²»ÄÜʵÏÖ ......
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
  ......