VBÖÐlistboxÎÊÌâ
ÔÚlistboxÖÐÓÐ3¸öÃû×Ö£º
ÕÅÈý
ÀîËÄ
ÍõÎå
ÆäÖÐÕÅÈýµÄItemDataÊÇ1£¬ÀîËÄÊÇ2£¬ÍõÎåÊÇ3£¬ËûÃÇÔÚÊý¾Ý¿âÖеÄidÒ²ÊǶÔÓ¦µÄ1£¬2£¬3£¬ÎÒµÄÒâ˼¾ÍÊǵã»÷listboxÖеÄÕÅÈý£¬¾ÍÄÜ´ÓÊý¾Ý¿âÖиù¾Ýid=1°ÑÆäËûÐÅÏ¢ËѳöÀ´£¬ÒÔÏÂÎÒ×öÁËÒ»¶Î³ÌÐò£¬ÏµÍ³±¨´íÊDzÎÊý²»¿ÉÑ¡
Private Sub List1_Click()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & appdisk & "gp.dll;Persist Security Info=False;Jet OLEDB:Database Password="
strSQL = "SELECT nr,time from falv where id = " & List1.ItemData & " "
rs.Open strSQL, conn, 3, 3
Form2.RichTextBox1.Text = rs!nr & ""
rs.Close
conn.Close
Form2.Show 0.1
End Sub
ÇëÎÊһϸÃÔõôŪ£¬Ð»Ð»ÁË
Ó¦¸ÃÓà ListIndex
¶ø²»ÊÇ ItemData£¨£©
{{
Ïà¹ØÎÊ´ð£º
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......