这样的代码，有什么问题吗？
这段代码的意思是，选中的行，“选择”列的值为true，其他行的“选择”列的值全部为false。顺带写入三个TextBox的值。
实际上这三个TextBox的值是可以正常写入的，但“选择”列的true，无法响应，非得在主菜单-表-表属性-事件中确定下才生效。
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
Else
Forms("自动整理数据").show()
e.Table.Current("选择") = True
Dim id As String = e.Table.Current("_Identify") '删除其他行中的选择勾勾
For Each dr As Row In e.Table.Rows
If dr("_Identify") <> id Then
dr("选择") = False
End If
Next
Forms("自动整理数据").Controls("TextBox2").text = e.Table.Current("数据库名称")
Forms("自动整理数据").Controls("TextBox3").text = e.Table.Current("项目名称")
Forms("自动整理数据").Controls("TextBox4").text = e.Table.Current("账套年度")
End If
加好友 
发短信
Post By：2020/3/30 19:53:00 [显示全部帖子]
