新手请教,我在表事件的双击鼠标中设置如下代码:
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 IfNext
希望可以在双击表单元的时候,显示“分表名称”当前值相等的数据表,问题是现在不知道哪里出现了问题,高手帮忙指点下。