Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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 - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔسö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØַʱºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

VBµ÷ÓÃEXCEL»æͼ£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ