VB程序员博客

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "database.mdb;Persist Security Info=False"
    Adodc1.LockType = adLockOptimistic
    Adodc1.RecordSource = "select * from server "
    Adodc1.Refresh
   
    Set DataGrid1.DataSource = Adodc1

程序是列出SERVER 表单的所有内容…但是备注型的比较长..看不到..能做到自动适应不参考

VB中DataGrid列怎么样自动适应数据宽度

也就是判断数据源字段的长度，再定义datagrid单元格的宽度。

标签: , datagrid, vb6.0, 自动