- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教，双击表单元无法打开表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28982)
-- 发布时间：2013/2/25 9:25:00
-- 请教，双击表单元无法打开表
新手请教，我在表事件的双击鼠标中设置如下代码：
Dim bm As String = Tables("创建工程数量分表").Current("分表名称")
For Each dt As DataTable In DataTables
If dt.name = bm Then
MainTable = Tables("bm")
Else
MessageBox.Show("数据库中找不到" & bm,"提示")
Return
End If
Next
希望可以在双击表单元的时候，显示“分表名称”当前值相等的数据表，问题是现在不知道哪里出现了问题，高手帮忙指点下。
此主题相关图片如下：123.jpg
此主题相关图片如下：21314.jpg
此主题相关图片如下：443.jpg
-- 发布时间：2013/2/25 9:37:00
-- 还是不行啊
已经修改了，但是还是不可以啊
-- 发布时间：2013/2/25 9:44:00
--
看代码好像没问题啊。
-- 发布时间：2013/2/25 9:49:00
--
代码改一下。
Dim bm As String = Tables("创建工程数量分表").Current("分表名称")
For Each dt As DataTable In DataTables
If dt.name = bm Then
MainTable = Tables(bm)
Return
End If
Next
MessageBox.Show("数据库中找不到" & bm,"提示")
-- 发布时间：2013/2/25 10:14:00
--
这个应该没问题了。
-- 发布时间：2013/2/25 11:39:00
--
可以了，感谢支持！