vb MSFlexGrid1.Row ʵʱ´íÎó'30009'RowÊýÖµÎÞЧ
´úÂëÈçÏ£º
Private Sub MSFlexGrid1_SelChange()
If MSFlexGrid1.Rows = 1 Then Exit Sub
If MSFlexGrid1.Row = 0 Then Exit Sub
grid_row = MSFlexGrid1.Row
grid_col = MSFlexGrid1.Col
MSFlexGrid1.Row = grid_row_old
MSFlexGrid1.Col = 0
Set MSFlexGrid1.CellPicture = LoadPicture()
MSFlexGrid1.Row = grid_row
MSFlexGrid1.Col = 0
Set MSFlexGrid1.CellPicture = LoadPicture("c:\gddmt\p0.bmp") 'ICO")
MSFlexGrid1.Col = grid_col
grid_row_old = MSFlexGrid1.Row
End Sub
ºìÉ«µÄΪ±¨´íµÄ ³ÌÐòҪʵÏÖµÄÊDzéѯºóÏÔʾÔÚMSFlexGrid1 µ±Ã»ÓÐÌõ¼þ²éѯºóÏÔʾÔÚMSFlexGrid1
È»ºóÔÙÓÐÌõ¼þ²éѯÏÔʾ ÏÔʾºóµã»÷MSFlexGrid1ÀïÃæµÄÖµ¾Í»á±¨ ¡°ÊµÊ±´íÎó'30009'RowÊýÖµÎÞЧ¡±
Çó¸÷λ°ï¸öæ
¿´Ò»Ï±¨¾¯Ê±grid_row_oldµÄÖµ£¬Êó±êÖ¸ÔÚÆäÉϾͿÉÒÔ¿´µ½
grid_row_oldµÄÖµÊǵÚÒ»´ÎÎÞÌõ¼þ²éѯʱµÄrowÖµ
ʵ¼Ê¿´£¬ÄãµÄ´úÂëÈç¹ûÓÐÎÊÌ⣬Õâ¸öÖµ¿ÉÄÜ¿ÉÄãÏëµÄ²»Ò»Ñù£¬¿´ÊÇ·ñ·Ç·¨£¬»ò´óÓÚ×ÜÐÐÊý
Éè¼Æ´íÎó¡£
ÖØвéѯºóÐÐÊý±ä»¯£¬¾Í²»ÄÜʹÓþɵÄÐкš£
Á½´Î²éѯµÄ½á¹û²»Ò»Ñù£¬¼Ç¼ÌõÊýÒ²²»Ò»Ñù¡£
LZµÄ´úÂëÖ»ÄÜÕë¶Ôͬһ´Î²éѯµÄ¡£
VB code:
'×¢Òâ,grid_row_oldÐèÒªÔÚÄãµÄ²éѯ±ä»¯µÄʱºòÖØÖÃÒ»ÏÂ,±ÈÈ縳Ö
Ïà¹ØÎÊ´ð£º
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìøתºó£¬ÔõôȡµÃÌøתºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......