vb ͳ¼ÆlistviewÖÐijÁÐÊý¾Ýij¸öÏàͬÊý¾Ý³öÏֵĸöÊý
Ö±½ÓÔÚÏÔʾ³öÀ´µÃlistviewÖÐͳ¼Æ,¶øÇÒÀÛ¼ÓÏÂÈ¥
ÎÒµÄlistviewÖеÄÊý¾ÝÊÇͨ¹ý°´»Ø³µ¼üÏÔʾÔÚÀïÃæµÄ,µ±µÚ¶þÁгöÏÖÎÒÉ趨µÄÖµµÄʱºò(Èç30),ÔÚÒ»¸ötextÀïÃæ¼ÆÊý³öÏÖ¸öÊý
±ÈÈçÎÒµÄlistviewÖÐÔö¼ÓÒ»Ìõ¼Ç¼µÃÇé¿ö,ÎÒÏëʵÏÖµÄÊÇ:
ÐòºÅ ²âÁ¿Öµ
1 20 , text=0
2 21 , text=0
3 30 , text=1
4 21 , text=1
5 30 , text=2
6 21 , text=2
7 30 , text=3
8 21 , text=3
9 30 , text=4
.
.
.
.
¸½ÉÏÎÒʵÏÖÏÔʾÔÚlistviewÖеĴúÂë
If Right$(data, 1) = Chr(10) Then 'Óô®¿Úµ÷ÊÔÖªµÀÊý¾Ý×îºóһλÆäʵÊǻسµ¼ü
If Mid$(data, 9, 1) = Chr(13) Then
Dim nodeX As ListItem 'listview show
Set nodeX = ListView1.ListItems.Add()
nodeX.Text = ListView1.ListItems.Count 'ÐòºÅ
nodeX.SubItems(1) = Textcom1.Text '²âÁ¿Öµ
Text12.Text = ListView1.L
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......