1,451
社区成员
发帖
与我相关
我的任务
分享请问:datagrid控件里边怎样插入自己定制的纪录
datagrid 里边的列名已经设好,我没有向数据库里边取纪录,而是希望表格里边显示的值是我在程序里边赋予的, 即我想指定某行某列的值, 这样应该如何实现?
好像没有 datagrid1.rows = ? , 似乎怎么设置都不行?
好像没有 datagrid1.rows = ? , 似乎怎么设置都不行?
...全文
请发表友善的回复…
发表回复
Jeffery__Chen 2003-02-10
- 打赏
- 举报
to northwolves(northwolves) :
不绑定数据源，直接对行列进行赋值可以吗？
不绑定数据源，直接对行列进行赋值可以吗？
northwolves 2003-01-28
- 打赏
- 举报
Dim myrst As New ADODB.Recordset
Private Sub Command1_Click()
myrst.Move 3
DataGrid1.Columns(1).Text = "asas"
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
DataGrid1.SelStart = Len(DataGrid1.Text)
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 2 '为Recordset三个字段,即为 DataGrid 添加三列
myrst.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
myrst.Open
For i = 0 To 3
myrst.AddNew '加四条记录,即为 DataGrid 添加四空行
Next i
Set DataGrid1.DataSource = myrst '绑定 DataGrid 的数据源
myrst.MoveFirst
End Sub
Private Sub Command1_Click()
myrst.Move 3
DataGrid1.Columns(1).Text = "asas"
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
DataGrid1.SelStart = Len(DataGrid1.Text)
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 2 '为Recordset三个字段,即为 DataGrid 添加三列
myrst.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
myrst.Open
For i = 0 To 3
myrst.AddNew '加四条记录,即为 DataGrid 添加四空行
Next i
Set DataGrid1.DataSource = myrst '绑定 DataGrid 的数据源
myrst.MoveFirst
End Sub
