7,763
社区成员
发帖
与我相关
我的任务
分享DataGrid怎样手工添加一行？ 又怎样为每个单元格赋值？
Dim i integer
DataGrid1.Columns(0).CellText(1) = I
这样说类型不匹配！
DataGrid1.Columns(0).CellText(1) = I
这样说类型不匹配！
...全文
请发表友善的回复…
发表回复
flc 2003-12-15
- 打赏
- 举报
学习
关注
关注
guojinghe 2003-12-15
- 打赏
- 举报
datagrid1.row 当该值不在下一页（点击滚动条）或根本不到本页的最后一行，有时datagrid1.text="hello world"就会出错
daisy8675 2003-12-11
- 打赏
- 举报
樓上的方法不錯。但是只是綁定數據源。
如果你沒有綁定數據源也會錯的。
datagrid1.row=1
datagrid1.col=1
datagrid1.text="hello world"
或者把DataGrid1.Columns(0).CellText(1) = I改變成 DataGrid1.Columns(0).Text = I
第二列DataGrid1.Columns(1).Text = I
如果你沒有綁定數據源也會錯的。
datagrid1.row=1
datagrid1.col=1
datagrid1.text="hello world"
或者把DataGrid1.Columns(0).CellText(1) = I改變成 DataGrid1.Columns(0).Text = I
第二列DataGrid1.Columns(1).Text = I
northwolves 2003-12-11
- 打赏
- 举报
需要添加一个数据源（空的也行）：
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
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
