1、1,如果想把某一列設置成下拉匡中選擇，只能寫成 grid.colcombolist(1) = "a|b|c" 嗎？能不能把下拉框中的數據和 recordset 或數組綁定。  答案:grid.colcombolist(1)grid.buildcombolist(rs!abc)2,怎樣限定第三列可編輯,其他列不可編輯?答案:Private Sub fg_BeforeEdit(ByVal Row As Long, ByVal Col

2、0;As Long, Cancel As Boolean)  '*先將設editable=2  '限定不可編輯列,如有5列  If Col = 0 Then Cancel = True  If Col = 1 Then Cancel = True  If Col = 2&#

3、160;Then Cancel = True  If Col = 4 Then Cancel = True  If Col = 5 Then Cancel = TrueEnd Sub3、怎么獲得當前單元個的位置，比如某單元個獲得焦點，彈出msgbox("你選的是第4行第5列")Answer:Private Sub VSFlexGrid1_

4、Click()    Dim a, b As Long        a = VSFlexGrid1.Row        b = VSFlexGrid1.Col    MsgBox "你選的是" & a &am

5、p; "行" & b & "列"End Sub4,對vsflexgrid進行編輯的時候，讓vsflexgrid的某列只能輸入數字?Answer:Private Sub CheckData(KeyAscii As Integer)   If KeyAscii >= 48 And KeyAscii <= 57 Then

6、60;Exit Sub '如果是數字退出   If KeyAscii <> 8 Then KeyAscii = 0End SubPrivate Sub vsflexgrid_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer) &

7、#160; If col=1  Then    '第一列只能輸入數字      CheckData KeyAscii   End IfEnd Sub5,限制某列只能輸入數字Answer:Private Sub fg_KeyPressEdit(ByVal Row As Long, ByVal Col As

8、0;Long, KeyAscii As Integer)Dim Numbers As String        '允許輸入的字符If fg.Col = 6 Then    '第6列  Numbers = "1234567890" + Chr(46) + Chr(

9、8)  If InStr(Numbers, Chr(KeyAscii) = 0 Then    KeyAscii = 0  End IfEnd IfEnd Sub6,如何指定一列的輸入格式VSFlexGrid 控件屬性方法一覽表VSFlexGrid 控件屬性方法一覽表(帶()為方法)屬性/方法名稱        功能&

10、#160;                          示例語法AddItem()            增加一行        &#

11、160;              O.A String, RowIndexAggregate            返回集合合計(總數,平均,等等)   O.A = (A,Row1,Col1,Row2,Col2)Align    

12、;            對象在窗體上的顯示位置         O.A = 0|1|2|3|4AllowBigSelection    設定列頭是否整行或整列選擇     O.A = True|FalseAllowSelection  &

13、#160;    是否可多單元選擇               O.A = True|FalseAllowUserFreezing    運行時用鼠標凍結行或列         O.A = 0|1|2|3AllowUserResizing&

14、#160;   調整(行/列)大小方式            O.A = 0|1|2|3|4Appearance           邊框平面/凹陷/凸起             O.A&#

15、160;= 0|1|2Archive()            存儲或清除一個二進制文件內容   O.A ArcFileName,FileName,0|1|2|3ArchiveInfo          返回一個二進制文件信息        

16、0;O.A ArcFileName,0|1|2|3|4,LineIndexAutoReSize           是否自動調整大小               O.A = True|FalseAutoSearch        

17、   設置自動搜索                   O.A = 0|1|2AutoSearchDelay      設置AutoSearch多少秒刷新       O.A = 2AutoSize()

18、0;          自動調整列到指定寬度           O.A Col1,Col2,True|False,1000AutoSizeMode         自動調整適合行列內容        

19、0;  O.A = 0|1AutoSizeMouse        是否雙擊列首自動調整適合行列   O.A = True|FalseBackColor            所有非固定行列的背景色         O.

20、A = ColorBackColorAlternate   所有非固定行列的交替行顏色     O.A = ColorBackColorBkg         表格背景坐底色                 O.A

21、60;= ColorBackColorFixed       固定的行/列背景色              O.A = ColorBackColorFrozen      凍結部分的行列背景色         

22、  O.A = ColorBackColorSel         單元被選中的背景色             O.A = ColorBindToArray()        綁定數組    

23、0;   O.A ArrayStr,RowDim,ColDim,PageDim,CurrentPageBookmark             返回ADO Recordset行書簽(只讀)  O.A(Row)BorderStyle          邊框粗細樣式   &

24、#160;               O.A = 0|1BottomRow            返回可見范圍的最大行號(只讀)   O.ABuildComboList()     將數據庫中的內容寫入下拉框 

25、0;   O.A(rs, FieldList, KeyField, BackColor)CausesValidation     ?目標事件確認                O.A = False|TrueCell        

26、;         選擇部分的相應準則值           O.A(準則, Row1, Col1, Row2, Col2) = 準則值CellAlignment        設定單元里數據的排列方式     

27、;  O.A = 0 至 9CellBackColor        指定單元范圍的背景顏色         O.A = ColorCellBorder()         選擇單元范圍的邊界顏色     &#

28、160;   O.A Color,左,上,右,下,垂直,水平CellButtonPicture    選擇單元范圍的按鈕圖片         O.A = LoadPicture("D:Icon.ico")CellChecked          選擇單元范圍的復選框  

29、         O.A = 0|1|2CellFloodColor       選擇單元范圍的流程顏色         O.A = ColorCellFloodPercent     選擇單元范圍的流程百分比    &

30、#160;  O.A = 1 至 100CellFontBold         指定單元范圍設為黑體字         O.A = False|TrueCellFontItalic       指定單元范圍設為斜體字    &#

31、160;    O.A = False|TrueCellFontName         對象所使用的字體名稱           O.A = FontNameCellFontSize         對象文字像數大小(默認9pt

32、)      O.A = 9CellFontStrikethru   選擇范圍是否有刪除線           O.A = False|TrueCellFontUnderline    選擇范圍是否有下畫線         

33、60; O.A = False|TrueCellFontWidth        設定單元或指定范圍字體的寬度   O.A = 2CellForeColor        設定單元或指定范圍字體的顏色   O.A = ColorCellHeight     &

34、#160;     返回/顯示到當前單元高度(只讀)  O.ACellLeft             返回當前單元的左端位置(只讀)   O.ACellPicture          顯示在單元或指定范圍中的圖片   O.A 

35、= LoadPicture("D:Icon.ico")CellPictureAlingment 單元或指定范圍圖片的顯示位置   O.A = 0 至 10CellTextStyle        設定單元文本的顯示形式         O.A = 0|1|2|3|4CellTop 

36、0;            返回當前單元的頂端位置(只讀)   O.ACellWidth            返回當前單元的寬度(只讀)       O.AClear()       &#

37、160;      清除表格內容                   O.A(0|1|2,0|1|2|3)ClientHeight         返回客戶可見范圍高度       

38、0;   O.AClientWidth          返回客戶可見范圍寬度           O.AClip                 設置選擇范圍的內容  

39、           O.A = TextClipSeparators       ?Col                  設置激活單元的列號      &

40、#160;      O.A = 2ColAlignment         列對齊排列方式                 O.A(Col) = 0 至 9ColComboList   &

41、#160;     向下拉框寫入管道字符           O.A(Col) = "|ListStr1|ListStr2|."ColData              設置用戶定義的長整形數據     

42、60; O.A(Col) = UserLongColDataType          列數據類型                     O.A(Col)=0至14到20(&H14),30(&H1E),31(&H1F)ColEditM

43、ask          列編輯套用格式字符串           O.A(Col) = 指定的格式如：#ColFormat            格式化顯示列       

44、60;           O.A(Col) = "Currency"|"#.#%".ColHidden            是否隱藏指定列              

45、   O.A(Col) = True|FalseColImageList         設置圖像列表句柄到列ColIndent            縮進指定列               

46、;      O.A Col= 100ColIndex             返回列索引(只讀)               O.A ColColIsVisible     &#

47、160;   返回列是否可見(只讀)           O.A ColColKey               設置列鑰匙              

48、0;      O.A(Col) = KeyStrColPos               返回列距左邊寬度(只讀)         O.A ColColPosition        &#

49、160; 移動列的位置                   O.A(Col) = ReColCols                 返回/設置總列數     

50、           O.A = 2ColSel               返回/設置最后選擇的列          O.A = 3ColSort    &#

51、160;         設置列種類                     O.A(Col) = 0 至 10ColWidth           

52、  返回/設置指定列寬              O.A(Col) = 100ColWidthMax          最大列寬                

53、       O.A(Col) = 5000ColWidthMin          最小列寬                       O.A(Col) = 

54、;100ComboCount           取得Combo下拉按鈕總數(只讀)    O.AComboData            Combo下拉按鈕數據(只讀)        O.AComboIndex   &

55、#160;       Combo下拉按鈕索引              O.A = 1ComboItem            Combo下拉按鈕項目(只讀)       

56、60;O.AComboList            向下拉框寫入管道字符內容       O.A = "a|b|c"ComboSearch          Combo下拉按鈕搜尋方式       

57、   O.A = 0|1|2|3Container            返回/設置對象的容器            O.A.Caption = "Forms"DataBindings       &

58、#160; 返回數據裝入數(只讀)           O.ADataMember           返回/設置數據描述成員          O.A = DataStrDataMode     &

59、#160;       設置數據鏈接狀態               O.A = 0|1|2|3|4DataRefresh()        刷新數據源          

60、0;          O.ADataSource           設置數據源                     Set O.A = Dat

61、aDimDrag()               拖放                           O.A 0|1|2DragIcon  &#

62、160;          拖放圖標                       O.A = LoadPicture("D:Icon.ico")DragMode      

63、;       拖放方式                       O.A = 0|1DragRow()            拖放行(本示例在MouseDo

64、wn過程)  O.A O.RowSelEditable             設置表格是否可編輯修改         O.A = 0|1|2EditCell()           當移動到當前單元時自動選擇 

65、;    O.AEditMask             當編輯時只能使用指定值         O.A = StrValueEditMaxLength        所有單元限制字節大小    &#

66、160;      O.A = 2EditSelLength        編輯時選擇長度                 O.A = 5EditSelStart       &#

67、160; 移動到單元時的光標位置         O.A = 0(或者Len(vsg.text)EditSelText          編輯選擇處放文本               O.A = "S

68、tr"EditText             編輯文本                       O.A = "Str"EditWindow    

69、;       返回編輯窗口(只讀)             O.AEllipsis             超寬字符加省略號            

70、   O.A = 0|1|2Enabled              對象是否激活可用               O.A = False|TrueExplorerBar      

71、;    單擊列頭的選擇、拖動或排序樣式 O.A = 0 至 15ExtendLastCol        是否擴充最后的列到適合寬度     O.A = False|TrueFillStyle            是否改變當前范圍的內容

72、或格式   O.A = 0|1FindRow              查找符和條件返回的行(只讀)     O.A FindStr,Row,Col,敏感,精度)FinishEditing()      完成編輯的      &#

73、160;              O.A = False|TrueFixedAlignment       固定列的對齊方式               O.A(Col) = 0 至

74、60;9FixedCols            固定幾列                       O.A = 1FixedRows        

75、;    固定幾行                       O.A = 1FlexDataSource       流動數據源         &

76、#160;           O.A = rsDateFloodColor           設置流程顏色                   O.A =&

77、#160;ColorFocusRect            單元的選擇虛框樣式類型          O.A = 0|1|2|3|4|5Font                 設定字體&

78、#160;                      O.A = FontNameFontBold             設定字體粗體        

79、;           O.A = False|TrueFontItalic           設定字體斜體                   O.A =&

80、#160;False|TrueFontName             設定字體名稱                   O.A = FontNameFontSize        

81、;     設定字體大小                   O.A = 10FontStrikethru       設定字體刪除線           &#

82、160;     O.A = False|TrueFontUnderline        設定字體下劃線                 O.A = False|TrueFontWidth      

83、;      設定字體的寬度(非間距)         O.A = 2ForeColor            設定字體前景顏色               O

84、.A = ColorForeColorFixed       設定固定單元的文本顏色         O.A = ColorForeColorFrozen      設定字體凍結部分的前景顏色     O.A = ColorForeColorSel  

85、;       設定選擇單元的文本顏色         O.A = ColorFormatString         設計管道符格式化行/列字符串    O.A = Format(1,"#0.00")FrozenCols  &#

86、160;        需要凍結的列數                 O.A = 2FrozenRows           需要凍結的行數      

87、60;          O.A = 2GetMergedRange()     ?獲得合并山脈GetNode()            ?獲得節點GetNodeRow()         ?獲得節點行GetSelect

88、ion()       ?獲得選擇                   O.A Row1, Col1, Row2, Col2GridColor            單元行列的網格

89、線顏色           O.A = ColorGridColorFixed       設定固定網格線的顏色           O.A = ColorGridLines        

90、    可編輯區的網格線類型           O.A = 0 至 14GridLinesFixed       固定行列網格效果類型           O.A = 0 至 14Grid

91、LineWidth        編輯區的網格線線粗細           O.A = 1Height               設置對象高度        

92、           O.A = 1000HelpContextID        對象缺省上下文幫助ID           O.A = HelpIDHighLight       

93、60;    是否突出加亮顯示選中單元       O.A = 0無|1默認|2僅焦點時有hWnd                 獲取對象句柄             

94、      O.AIndex                對象索引號(運行時只讀)         O.AIsCollapsed          ?IsSelected 

95、60;         是否已選擇                     O.AIsSubtotal           是否已小記    

96、0;                O.ALeft                 對象距左邊位置              &#

97、160;  O.A = 100LeftCol              指定顯示在最左邊的列           O.A = 1LoadArray()          載入數組LoadGr

98、id()           載入網格                       O.A FileName, 0 至 6,True(含固定行列)|FalseLoadGridURL()   

99、     載入網格URLMergeCells           相同內容的單元格合并類型       O.A = 0|1|2|3|4|5|6MergeCol             是否上下列合并  

100、;               O.A(Col) = TrueMergeCompare         返回/設置合并比較類型          O.A = 0|1|2MergeRow   

101、          是否左右行合并                 O.A(Row) = TrueMouseCol             返回鼠標指向的當前列號 

102、60;       O.AMouseIcon            設定鼠標指向的當前圖形         O.A = LoadPicture("C:.ico")MousePointer        

103、; 設置對象的鼠標指針樣式         O.A = 0 到 15|99MouseRow             返回鼠標指向的當前行號         O.AMove()     

104、60;         移動對象                       O.A Left,Top,Width,HeightMultiTotals          

105、?Multi總數Name                 對象名稱(運行時只讀)           O.ANodeClosedPicture    節點封閉的圖標         

106、0;       O.A = LoadPicture("C:.ico")NodeOpenPicture      節點打開的圖標                 O.A = LoadPicture("C:.ico")Ob

107、ject               返回/設置該對象變量            Set DimObjName = O.AOLEDrag()            OLE拖拽數據&

108、#160;                   O.AOLEDragMode          OLE拖拽方式                

109、0;   O.A = 0|1OLEDropMode          OLE拖拽落下方式                O.A = 0|1|2Outline()         &

110、#160;  ?外面的線OutlineBar           返回/設置顯示目錄樹的線條       O.A = 0 至 6OutlineCol           ?外面的線列OwnerDraw    &

111、#160;       返回或設置執行 DrawCell 事件   O.A = 0 至 6Parent               返回該對象所在的對象(只讀)     O.A.Caption = "Forms

112、"Picture              返回控件的圖片(只讀)           O.A.屬性|方法 = 相應值PicturesOver         返回控件圖片結束    

113、60;          O.A = False|TruePictureType          用Picture屬性生成的圖片類型    O.A = 0|1PrintGrid()          打印網格數據

114、60;                  O.A "主題",True|False,1|2,左右空,上下空Redraw               設定是否刷新控件      

115、60;        O.A = 0|1|2Refresh()            刷新表格                       O.ARe

116、moveItem()         刪除指定行                     O.A VSG1.RowSelRightCol             

117、;返回右邊最大的可見列范圍       O.ARightToLeft          是否將固定行放到右邊           O.A = TrueRow            

118、      設置激活單元的行號             O.A = 2RowData              設置用戶定義的長整形數據       O.A(Row) =

119、 UserLongRowHeight            返回/設置指定行高              O.A(Row) = 100RowHeightMax         行高的最大值  

120、0;                O.A(Row) = 500RowHeightMin         行高的最小值                 

121、0; O.A(Row) = 230RowHidden            是否隱藏指定行                 O.A(2) = True|FalseRowIsVisible      &

122、#160;  返回行是否在可見范圍中(只讀)   O.A(Row)RowOutlineLevel      返回/設置水平行小記            O.A(Row) = 0|1RowPos             &

123、#160; 返回行距上邊高度(只讀)         O.A RowRowPosition          移動行的位置                   O.A(Row) = 

124、;NewRowRows                 返回/設置總行數                O.A = 2RowSel          

125、     返回/設置最后選擇的行          O.A = 2RowStatus            設置行狀態                

126、     O.A = 0|1|2|3SaveGrid()           保存網格內容到二進制文件       O.A FileName, 0 至 6,True(含固定行列)|FalseScrollBars        &#

127、160;  設定卷動軸的方式               O.A = 0|1|2|3ScrollTips           卷軸提示              

128、;         O.A = False|TrueScrollTipText        卷軸提示文本                   O.A = "Text"Scroll

129、Track          行是否隨拖動條卷動顯示         O.A = False|TrueSelect()             選擇行列范圍        

130、0;          O.A Row,Col,RowSel,ColSelSelectedRow          已選擇行(只讀)                 O.A(Row)SelectedRows &

131、#160;       返回所選總行數(只讀)           O.ASelectionMode        設置單元焦點選中方式           O.A = 0|1|2|3SetFocus()

132、60;          設置到對象焦點                 O.ASheetBorder          表格邊框顏色        

133、           O.A = ColorShowCell()           立刻顯示到指定單元             O.A Row, ColShowComboButton  &

134、#160;   是否顯示當選擇時拉下按鈕       O.A = 0|1|2ShowWhatsThis()      顯示“這是什么”               O.ASort       

135、0;         按照選擇的基準重新排序順序方式  O.A = 0 到 10Subtotal()           小計                  

136、;         O.A 屬性名,其它共9個可省略參數SubtotalPosition     是否小計上面或下面的數值       O.A = 0|1TabBehavior          Tab鍵跳轉順序禁止   

137、0;          O.A = 0|1TabIndex             對象的Tab選擇順序              O.A = 2TabStop  

138、60;           是否允許Tab自動選擇            O.A = True|FalseTag                  存儲數據時所需的附加數

139、據       O.A = StrText                 返回/寫入當前單元的文字        O.A = StrTextMatrix       &

140、#160;   返回/寫入指定單元的文字        O.A(Row, Col) = StrTextStyle            單元格文字效果                

141、; O.A = 0|1|2|3|4TextStyleFixed       固定行列文本的3D效果           O.A = 0|1|2|3|4ToolTipText          鼠標指向表格的說明消息    

142、0;    O.A = "TextString"Top                  對象上邊距                    

143、 O.A = 100TopRow               指定顯示在最上面的行           O.A = 5TreeColor            目錄樹顏色

144、                     O.A = ColorValue                返回當前單元數值部分(只讀)     O.AValue

145、Matrix          返回指定單元數值部分(只讀)     O.A Row, ColVersion              返回控件的版本號(只讀)         O.AVirtualD

146、ata          虛擬數據                      O.A = True|FalseVisible           &#

147、160;  是否顯示對象                   O.A = True|FalseWallPaper            表格壁紙背景圖  O.A=LoadPicture(Image) | O.A

148、.屬性|方法 = 相應值WallPaperAlignment   壁紙背景圖墻報對齊方式         O.A(Col) = 0 至 10WhatsThisHelpID      設置與對象相關聯的上下文號     O.A = HelpIDStringWidth  &

149、#160;             設置對象寬度                   O.A = 5000WordWrap           

150、60; 設定單元中的文本是否換行       O.A = True|FalseZOrder()             設置對象Z順序                  O.A 0

151、|1vsflexgrid技巧大全如何實現將vsflexgrid中修改的數據反饋到數據庫中？Private Sub vsflexgrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)  rs.MoveFirst    '/rs為記錄集  rs.Move vsflexgrid1.Row - 1  rs.Edit 

152、 If vsflexgrid1.text = "" Then      rs.Fields(vsflexgrid1.Col - 1) = Null  Else     rs.Fields(vsflexgrid1.Col - 1) = vsflexgrid1.text  End If

153、0; rs.Updateend sub     一、增加記錄使用for來循環表格行。     for i=1 to grid1.rows-1          with rs              

154、0;  .addnew                 .fileds(o)=grid1.textmariy(i,0)                 .fileds(1)=grid1.textmariy(i,1)  &

155、#160;              .fileds(2)=grid1.textmariy(i,2)                 .fileds(3)=grid1.textmariy(i,3)        

156、;         .update           end with      next二、添加行grid1.additem row三、刪除當前行with grid1           

157、0;i=.row            .removeitem i      end with四、要顯示下拉框，可以使用vsflexgrid中列綁定功能grid1.colcombolist(1)grid.buildcombolist(rs,"商品名稱") 跟樓上的相比,僅僅是datamode不一樣(2-flexDMBoundBatch)但這樣做的優勢是非常明顯的:可以

158、撤銷包括新增刪除在內的所有操作,按保存鍵才寫入數據庫Private Sub CmdDel_Click()If fg.Row <> 0 Then fg.RemoveItem (fg.Row)fg.RefreshEnd SubPrivate Sub CmdAdd_Click()On Error Resume NextAdodc1.Recordset.AddNewIf Err.Number <> 0 

159、;Then MsgBox Err.DescriptionEnd SubPrivate Sub CmdUpdate()Adodc1.Recordset.UpdateBatch adAffectAllChaptersEnd SubPrivate Sub CmdCancel_Click()    Adodc1.Recordset.CancelBatch    fg.DataRefreshEnd SubPrivate

160、0;Sub Form_Load()Adodc1.ConnectionString = "FILE NAME=" & App.Path & "conn.dsn"Adodc1.LockType = adLockBatchOptimisticAdodc1.RecordSource = "Your_Tablename"Set fg.DataSource = Adodc1End&#

161、160;Sub  1、打印vsflexgrid可以使用vsprinter打印控件。跟vsflexgrid配套使用效果不錯。2、導出EXECL，可以使用grid.savegrid的方法。   用savegrid的方法 ，在導出execl時，如果碰到類似于銀行帳號的列如：“”，導到中就不這樣顯示了，這個問題還不知道怎么解決？    另外也可以寫代碼（這個方法比較實用，但慢一些）：   Dim excelApp As Excel.Applic

162、ation    Set excelApp = New Excel.Application    On Error Resume Next    If excelApp Is Nothing Then       Set excelApp = CreateObject(

163、"Excel.application")       If excelApp Is Nothing Then          Exit Sub       End If    End If   &#

164、160;excelApp.Visible = True    Me.MousePointer = vbHourglass    excelApp.Workbooks.Add    With excelApp.ActiveSheet        Dim i As Integer, j As 

165、;Integer        For i = 1 To Grid1.rows            For j = 1 To Grid1.Cols            

166、0;     .Cells(i, j).value ="'"& Grid1.TextMatrix(i - 1), (j - 1)'加上“'”號則可以解決上面savegrid中銀行帳號的導出問題。             Next j            DoEvents        Next i    End With&