关于VB中MSFlexGrid的一个问题

2025-05-06 08:08:23

推荐回答（3个）

回答1：

你的方式导入很慢,用MSHFlexGrid控件,如下供参考
ADOCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\111.XLS;Extended Properties='Excel 8.0;HDR=YES'"
ADOCon.Open
ADORst.Open "select * from [sheet1$] ", ADOCon, adOpenKeyset, adLockOptimistic
Set MSHFlexGridRecordset = ADORst
ADOCon.Close

回答2：

在For赋值之前,先设定MSFlexGrid1的ROWS,COLS就不会溢出了.
MSFlexGrid1.Rows=10
MSFlexGrid1.Cols=10

For i = 0 To 10 Step 1
Form1.MSFlexGrid1.TextMatrix(i, 0) = xlsheet.Cells(i+1, 1)
Next i
End If
MSFlexGrid1.Rows = i

回答3：

for循环里加入rows=rows+1