试试这个,看看原理Private Sub Form_Load() Dim adoRecordset As ADODB.Recordset Set adoRecordset = New ADODB.Recordset Dim i As Integer For i = 0 To 2 '为Recordset三个字段,即为 DataGrid 添加三列 adoRecordset.Fields.Append "第" & i & "列", adVariant, adFldMayBeNull, adFldIsNullable + adFldUpdatable Next i adoRecordset.Open For i = 0 To 3 adoRecordset.AddNew '加四条记录,即为 DataGrid 添加四空行 Next i Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源 adoRecordset.MoveFirst End Sub
Dim adoRecordset As ADODB.Recordset
Set adoRecordset = New ADODB.Recordset
Dim i As Integer
For i = 0 To 2 '为Recordset三个字段,即为 DataGrid 添加三列
adoRecordset.Fields.Append "第" & i & "列", adVariant, adFldMayBeNull, adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For i = 0 To 3
adoRecordset.AddNew '加四条记录,即为 DataGrid 添加四空行
Next i
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
adoRecordset.MoveFirst
End Sub
我还是觉得mshflexgrid更适合你,因为他不需要绑定