1,451
社区成员
发帖
与我相关
我的任务
分享datagrid行设置(不用绑定）提示行设置不可用，当前行为-1
For i = 0 To rs.Fields.Count - 1
x = DataGrid1.Row
DataGrid1.Columns(i).Text = rs.Fields(i).Value
Next
x = DataGrid1.Row
DataGrid1.Columns(i).Text = rs.Fields(i).Value
Next
...全文
请发表友善的回复…
发表回复
linghuxiaochong 2003-03-06
- 打赏
- 举报
我已经解决啦，拉拉啦，分分儿！
northwolves 2003-03-01
- 打赏
- 举报
Private Sub Form_Load()
Dim adoRecordset As ADODB.Recordset
Set adoRecordset = New ADODB.Recordset
Dim i As Integer
For i = 0 To 2 为 DataGrid 添加三列
adoRecordset.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For i = 0 To 9
adoRecordset.AddNew 为 DataGrid 添加十空行
Next i
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
adoRecordset.MoveFirst
End Sub
Dim adoRecordset As ADODB.Recordset
Set adoRecordset = New ADODB.Recordset
Dim i As Integer
For i = 0 To 2 为 DataGrid 添加三列
adoRecordset.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For i = 0 To 9
adoRecordset.AddNew 为 DataGrid 添加十空行
Next i
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
adoRecordset.MoveFirst
End Sub
linghuxiaochong 2003-02-28
- 打赏
- 举报
不用绑定，想设置控件的当前行和列，然后直接赋值，行吗？如成功分马上全给
Girl1983 2003-02-28
- 打赏
- 举报
DataGrid1.ClearFields
Set DataGrid1.DataSource = Rst
Set DataGrid1.DataSource = Rst
