vb¿Ø¼þ - VB / ¿Ø¼þ
¿ÉÒÔ°ÑvbÖÐlistviewµÄheader¸Ä³ÉÊúÅÅÏÔʾÂð£¿
»òÓÐûÓÐʲô±ðµÄ¿Ø¼þ¿ÉÒÔʵÏÖ
лл~~
listview²»Ö§³ÖÕâÖÖ·½Ê½Å¶,¸Ð¾õÂ¥Ö÷µÄÐèÇó¹Ö¹ÖµÄ:)
Microsoft FlexGrid Control 6.0
×ó²àÓй̶¨ÁÐ
¿É²»¿ÉÒ԰ѵÚÒ»ÐÐÒþ²Ø£¿
ListView Èç¹ûÖ»Òª²»ÏÔʾÁÐÍ·£¬ÉèÖÃÊôÐÔ
¡¡HideColumnHeaders = True
ÎÒµÄÏëÒªµÄÊǽ«listviewÄæÊ±ÕëÐýת90¶ÈºóµÄЧ¹û
¿ÉÒÔ°ÑflexgridµÚÒ»ÐÐÒþ²ØÂð£¿
лл~~
ÕâÊÇÒ»¸öÆæ¹ÖµÄÏë·¨!
Ϊʲô²»°ÑÊý¾Ýת¸ö¸öÄØ?
תΪÊý×éÔÙÓÃLIST×°Èë²»ÐÐ?
FlexGrid µÄ FixRows ÉèΪ 0
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
Çó¸övbÖеÄsqlÓï¾äµÄд·¨£¬´ÎsqlÓï¾äµÄÓ÷¨ÊÇ·ÖÒ³³ÌÐò
ÎÒдµÄÈçÏ£ºÆäÖÐAÊÇÓÃÀ´½ÓÊÕÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£¬BÊÇÓÃÀ´½ÓÊÕÏÔʾµÄµ±Ç°µÄÒ³Ãæ.
sqltext="select top A * from log where id not in(select top ( ......