1,451
社区成员
发帖
与我相关
我的任务
分享绑定的DataGrid中加一条新Row后，如何获得新Row中一个Cell的Text？
我需要在更新RecordSet前检查输入的数值，所以循环了DataGrid中全部数据，但是如果有新Row（就是比绑定记录多一条）后，循环到新Row后，DataGrid.Colunm(2).text不能取到值！报了个非法书签错误，怎么办啊！
...全文
请发表友善的回复…
发表回复
northwolves 2003-03-16
- 打赏
- 举报
希望我的代码对你有所帮助：
Dim adoRecordset As New ADODB.Recordset
Private Sub Command1_Click()
adoRecordset.AddNew
End Sub
Private Sub Command2_Click()
MsgBox IIf(IsNull(DataGrid1.Columns(2).Value), "", DataGrid1.Columns(2).Value)
If DataGrid1.Columns(2).Value = "2,10" Then adoRecordset.Update
End Sub
Private Sub Form_Load()
Dim a(2, 9) As String
For i = 0 To 2
For j = 0 To 9
a(i, j) = i & "," & j
Next
Next
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
For j = 0 To 9
For i = 0 To 2
DataGrid1.Columns(i).Text = a(i, j)
Next
adoRecordset.MoveNext
Next
End Sub
Dim adoRecordset As New ADODB.Recordset
Private Sub Command1_Click()
adoRecordset.AddNew
End Sub
Private Sub Command2_Click()
MsgBox IIf(IsNull(DataGrid1.Columns(2).Value), "", DataGrid1.Columns(2).Value)
If DataGrid1.Columns(2).Value = "2,10" Then adoRecordset.Update
End Sub
Private Sub Form_Load()
Dim a(2, 9) As String
For i = 0 To 2
For j = 0 To 9
a(i, j) = i & "," & j
Next
Next
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
For j = 0 To 9
For i = 0 To 2
DataGrid1.Columns(i).Text = a(i, j)
Next
adoRecordset.MoveNext
Next
End Sub
zqbirch 2003-03-16
- 打赏
- 举报
没有回答吗？
