居然不需要绑定数据库里内容,你也可以借用记录集来绑定DataGrid来实现行的增加,如:
Private Sub Command1_Click()
Dim i As Integer
Dim adoRt As Object
'// 创建记录集对象
Set adoRt = CreateObject("ADODB.RecordSet")
With adoRt
'// 增加字段
.Fields.Append ("字段一"), 202, 20
.Fields.Append ("字段二"), 202, 20
.Open
'// 增加数据
For i = 1 To 10
.AddNew
.Fields(0).Value = "C1,R" & i
.Fields(1).Value = "C2,R" & i
Next
'// 绑定
Set DataGrid1.DataSource = adoRt
End With
End Sub
温馨提示:答案为网友推荐,仅供参考