vb中的datagrid 控件如何增加列数？

vb中的datagrid 控件如何增加列数？

列数是自动的，就是记录集的字段数

'Ctrl+t找Microsoft DataGrid Control....

'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

Dim cn As New ADODB.Connection

Dim rst As New ADODB.Recordset

Dim SqlStr As String

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"

SqlStr = "Select * From 某个表"

rst.CursorLocation = adUseClient

rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集

Set DataGrid1.DataSource = rst '给DataGrid修改数据源

datagrid1.VisibleRows

返回一个整数，其范围从 0 到 DataGrid 控件的 Rows 属性所设置的行数。VisibleRows 属性包含全部或部分可见的 DataGrid 控件行

都说的太复杂了，只需要在控件那点右键，选择追加就增加了。

这个要增加记录集的字段才行。

如果你要增加记录集的字段可以用这个代码

rs.Fields.Append("字段名字",字段类型)