1,216
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2005-01-06
- 打赏
- 举报
Private Sub Form_Load()
Dim adoRecordset As New ADODB.Recordset
Dim i As Integer
For i = 0 To 5 '为Recordset六个字段,即为 DataGrid 添加六列
adoRecordset.Fields.Append "n * " & i + 1, adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For j = 0 To 4
adoRecordset.AddNew '加五条记录,即为 DataGrid 添加五空行
Next j
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
adoRecordset.MoveFirst
For i = 0 To 5
For j = 0 To 4
DataGrid1.Row = j
DataGrid1.Col = i
DataGrid1.Text = (i + 1) * (j + 1)'二维数组
Next
Next
End Sub
wumylove1234 2005-01-06
- 打赏
- 举报
Dim trst As ADODB.Recordset
Set trst = New ADODB.Recordset
trst.Fields.Append "ID", adInteger
trst.Fields.Append "Name", adVarChar, 30
trst.Open
trst.AddNew Array("ID", "Name"), Array(1, "1|合格")
trst.AddNew Array("ID", "Name"), Array(2, "2|A等品")
trst.AddNew Array("ID", "Name"), Array(3, "3|B等品")
Set DataGrid1.RecordSource = trst
Set trst = Nothing
Set trst = New ADODB.Recordset
trst.Fields.Append "ID", adInteger
trst.Fields.Append "Name", adVarChar, 30
trst.Open
trst.AddNew Array("ID", "Name"), Array(1, "1|合格")
trst.AddNew Array("ID", "Name"), Array(2, "2|A等品")
trst.AddNew Array("ID", "Name"), Array(3, "3|B等品")
Set DataGrid1.RecordSource = trst
Set trst = Nothing
wumylove1234 2005-01-06
- 打赏
- 举报
Dim trst As ADODB.Recordset
Set trst = New ADODB.Recordset
trst.Fields.Append "ID", adInteger
trst.Fields.Append "Name", adVarChar, 30
trst.Open
trst.AddNew Array("ID", "Name"), Array(1, "1|合格")
trst.AddNew Array("ID", "Name"), Array(2, "2|A等品")
trst.AddNew Array("ID", "Name"), Array(3, "3|B等品")
Set DataGrid1.RowSource = trst
Set trst = Nothing
Set trst = New ADODB.Recordset
trst.Fields.Append "ID", adInteger
trst.Fields.Append "Name", adVarChar, 30
trst.Open
trst.AddNew Array("ID", "Name"), Array(1, "1|合格")
trst.AddNew Array("ID", "Name"), Array(2, "2|A等品")
trst.AddNew Array("ID", "Name"), Array(3, "3|B等品")
Set DataGrid1.RowSource = trst
Set trst = Nothing
