主题：请教，双击表单元无法打开表

新手请教，我在表事件的双击鼠标中设置如下代码：

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

已经修改了，但是还是不可以啊

看代码好像没问题啊。

 

 代码改一下。

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,"提示")

这个应该没问题了。

 

可以了，感谢支持！