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ÐèÒªÔÚÄãµÄ²éѯ±ä»¯µÄʱºòÖØÖÃÒ»ÏÂ,±ÈÈ縳Ö
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......