求高手指教,在用VBA开发Autocad的问题

efan2000

看了一下，DataGrid在属性页中没有这个属性，但在代码中可以使用DataSource的属性。
With Adodc1
    .ConnectionString = "rovider=Microsoft.Jet.OLEDB.3.51;Data Source=" & sAppPath & "\gys_tj.mdb"
    .CommandType = adCmdTable
    .CursorType = adOpenKeyset
    .LockType = adLockBatchOptimistic
    .RecordSource = "tj"
    .Refresh
    If .RecordSet.RecordCount > 0 Then .RecordSet.MoveFirst
  End With
With DataGrid1
    Set .DataSource = Adodc1
    .Refresh
    .Caption = ""
    .Columns(0).Width = 50
    .Columns(0).Caption = "定额编号"
    .Columns(1).Width = 200
    .Columns(1).Caption = "项目名称"
    .Columns(2).Width = 50
    .Columns(2).Caption = "单位"
    .Columns(3).Width = 50
    .Columns(3).Caption = "数量"
  End With
这是很久以前的程序的一部分代码，关于DataGrid与ADODC的控件使用。

飞火

高手就是高手，谢谢了！！！

飞火

本人是新手，以后还希望高手多多指教啊。。