Question

vb中，vb读取任意一个access表，然后根据表中数据的多少和字段的多少，

vb中，vb读取任意一个access表，然后根据表中数据的多少和字段的多少，将数据显示在vsflex7控件中，目前我已实现可以自动判断表的字段，显示在列中，但是行显示数据还没有实现，请赐教代码。

Answer 1

可以做这个。。。。。。。。。。。。。

Private Sub Command1_Click()
Call OpenConnection
End Sub

Sub OpenConnection()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Data.mdb;Persist Security Info=False"
Dim cat As New ADOX.Catalog
cat.ActiveConnection = Adodc1.ConnectionString
For i = 0 To cat.Tables.Count - 1
If Left(cat.Tables(i).Name, 4) <> "MSys" Then
    List1.AddItem cat.Tables(i).Name
End If
Next i
'Adodc1.RecordSource = "select * from bwmain"
'Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub List1_Click()
    List2.Clear
    Adodc1.RecordSource = "select * from [" & List1.Text & "]"
    Adodc1.Refresh
    For i = 0 To Adodc1.Recordset.Fields.Count - 1
        List2.AddItem Adodc1.Recordset(i).Name
    Next i
End Sub

Answer 2

这种读取，不知道你是用什么方法，我一般都是用ADOBC，再绑定在VSFLEX上。字段是可以在SQL语句中选择的。行是全部都显示的。

Answer 3

要做二维数据，然后用for循环。