谁有，动态添加 datagrid “ 列对象 ” 的例子。

Question

谁有，动态添加datagrid列对象的例子：比如从按照listview中的项目，动态生成datagrid，且与数据库绑定 的例子。

Answer 1

建议你跟数据库关联，改变SQL 语句，改变数据源，也就改变了列！工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic    Set DataGrid1.DataSource = Rs

Answer 2

你可以用SQL语句控制列显示顺序，用列的visible属性控制是否显示该列。