ÓÃvc×öÁËÒ»¸öocx¿Ø¼þ£¬ÔÚvcºÍjsÀïÃæ²âÊÔ¶¼Ã»ÓÐÎÊÌâ
µ«ÊÇ¿Í»§ËµÔÚvbÏÂÃæ²âÊÔÓÐÎÊÌ⣬²»ÄÜÕýÈ·µÄ³õʼ»¯£¬
ÇëÎÊһϣ¬vbÔõôµ÷ÓÃocxÄØ£¿
ÎÒÒªÔÚvbÏÂÃæ²âÊÔһϣ¬Ð»Ð»¡£¡£¡£¡£¡£
up~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ð龪һ³¡°¡£¬¿Í»§ÖØÐÂ×¢²áÁËÒ»ÏÂocx£¬¾ÍºÃÓÃÁË£¬µ«ÊǾßÌåÎÊÌâÔÒòÉñ¹í²»Öª°¡¡£¡£¡£¡£
......
ÓÃvc×öÁËÒ»¸öocx¿Ø¼þ£¬ÔÚvcºÍjsÀïÃæ²âÊÔ¶¼Ã»ÓÐÎÊÌâ
µ«ÊÇ¿Í»§ËµÔÚvbÏÂÃæ²âÊÔÓÐÎÊÌ⣬²»ÄÜÕýÈ·µÄ³õʼ»¯£¬
ÇëÎÊһϣ¬vbÔõôµ÷ÓÃocxÄØ£¿
ÎÒÒªÔÚvbÏÂÃæ²âÊÔһϣ¬Ð»Ð»¡£¡£¡£¡£¡£
up~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ð龪һ³¡°¡£¬¿Í»§ÖØÐÂ×¢²áÁËÒ»ÏÂocx£¬¾ÍºÃÓÃÁË£¬µ«ÊǾßÌåÎÊÌâÔÒòÉñ¹í²»Öª°¡¡£¡£¡£¡£
......
listviewµÄÄÚÈÝÊä³öÖÁexcelÖеÄÒ»¶Î´úÂë
RowCnt = 2
ColCnt = 1
For i = 1 To Form6.listview1.ListItems.Count
For j = 1 To 8
xlSheet.Cells(RowCnt, ColCnt).Value = Form6.listview1.ListItems(i).SubItems(j)
ColCnt = ColCnt + 1
Next j
ColC ......
VBÈçºÎʵÏÖ¶à¿ò¼Ü¡£
¾ÍÊÇ˵×ó±ßÒ»ÅÅÊDz˵¥£¬ÓÒ±ßÊÇÏÔʾÄÚÈÝ£¬µãÄĸö²Ëµ¥ ÓÒ±ßÏÔʾÏàÓ¦ÄÚÈÝ¡£¡£¡£
VBÀïÈçºÎʵÏÖ£¿
ÓÐÈ˻شðÂð£¿
»¹ÓÐËÄÜ·¢¸öÓõ½treeviewµÄÀý×Ó¸øÎÒ¿´¿´£¿£¿£¿83380110@qq.com ¸Ð¼¤²»¾ª
¶¥ÉÏÈ¥
ÊÔÊÔListView¿Ø¼þ °É
ListView ¿Ø¼þÊÇ Msc ......
Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\member.mdb"
Set rs = New ADODB.Recordset
rs.Open "select * from queryattendance1 where µ½ÇÞÊÒÈÕÆÚʱ¼ä between #" & DTPicker1 ......
ÈçÌâ vb.netдwindows·þÎñ³ÌÐò
ÈçºÎ»ñµÃÎļþµÄ´´½¨ÕßÕâÒ»ÊôÐÔ ÓÃscripting.folderµÄÄĸöÊôÐÔ£¿
»¹ÊÇÐèÒªÓñðµÄÀ´ÊµÏÖѽ£¿
´´½¨ÕßÓ¦¸ÃÊÇ°²È«·¶³ë£¬¿´¿´Õâ¸öÀ࣬DirectorySecurity£¬²»È·¶¨
File.GetAttributes ¶ÁÈ¡ÎļþÊôÐÔ
Ö»¶ÁÎļþÊôÐÔÄÄÓд´½¨ÕßµÄÐÅÏ¢¡£DirectorySecurityÀàµÄ×ÊÁÏÎÒ¿´ÁËÏ£¬Óеã¸ßÉûÓÐÊ ......