Option Explicit
Dim Rs As New ADODB.Recordset
'比如给第3列增加内容3
Private Sub Command1_Click()
Dim i As Integer
Rs.MoveFirst
For i = 0 To 3
' Rs.AddNew '加四条记录,即为 DataGrid 添加四空行
Rs(2) = "test"
Rs.MoveNext
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 2 '为Recordset三个字段,即为 DataGrid 添加三列
Rs.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
Rs.Open
For i = 0 To 3
Rs.AddNew '加四条记录,即为 DataGrid 添加四空行
Next i
Set DataGrid1.DataSource = Rs '绑定 DataGrid 的数据源
Rs.MoveFirst
End Sub
Dim Rs As New ADODB.Recordset
'比如给第3列增加内容3
Private Sub Command1_Click()
Dim i As Integer
Rs.MoveFirst
For i = 0 To 3
' Rs.AddNew '加四条记录,即为 DataGrid 添加四空行
Rs(2) = "test"
Rs.MoveNext
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 2 '为Recordset三个字段,即为 DataGrid 添加三列
Rs.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
Rs.Open
For i = 0 To 3
Rs.AddNew '加四条记录,即为 DataGrid 添加四空行
Next i
Set DataGrid1.DataSource = Rs '绑定 DataGrid 的数据源
Rs.MoveFirst
End Sub