If Forms("物资类别管理窗口").Opened
Dim dl As WinForm.TextBox = Forms("物资类别管理窗口").Controls("TextBox1")
Dim dlm As WinForm.TextBox = Forms("物资类别管理窗口").Controls("TextBox2")
dl.Text=e.Table.Current("大类ID")
dlm.Text=e.Table.Current("大类名称")
If e.Table.Current Is Nothing Then '如果Current为Nothing
dl.Text=""
dlm.Text=""'没有选定行时执行的代码
Else
dl.Text=e.Table.Current("大类ID")
dlm.Text=e.Table.Current("大类名称")
End If
End If
建议:做例子提问的时候,不需要附加这么大的一个数据库,用内部表做个简单的例子就行,因为别人下载需要时间,也浪费服务器资源。
[此贴子已经被作者于2013-5-29 10:22:50编辑过]