If Tables.Contains("统计表1")=False Then
Dim q As new QueryBuilder
q.TableName = "统计表1"
q.SelectString = "Se*ect 【用****表示】"
q.Build
End If
Tables("窗口1"_Table1").DataSource =DataTables("统计表1")
Tables("窗口1"_Table1").DataTable.DataCols("中标价").Decimals =2
Tables("窗口1"_Table1").DataTable.DataCols("采购价").Decimals =2
If Tables("窗口1"_Table1").DataTable.DataCols.Contains("金额")=False Then
Tables("窗口1"_Table1").DataTable.DataCols.Add("金额", Gettype(Double), "[数量]*[采购价]")
End If
Tables("窗口1"_Table1").SetColVisibleWidth(" 省略......")
Tables("窗口1_Table1").SetHeaderRowHeight(40)
现在是要先点击菜单的“更新SQL查询表”，之后再点击窗口中按钮 ，这样觉得要操作2次，即要点击2次。能不能简化操作，把按钮中的代码复制到菜单中代码的后面，这样只点击菜单就完事了。
即菜单代码变为：
Case "更新SQL查询表"
Dim q As new QueryBuilder
q.TableName = "统计表1"
q.SelectString = "S*lect 【用****表示】"
q.Build
Tables("统计表1").DataTable.DataCols("中标价").Decimals =2
Tables("统计表1").DataTable.DataCols("采购价").Decimals =2
If Tables.Contains("统计表1")=False Then
q.TableName = "统计表1"
q.SelectString = "Se*ect 【用****表示】"
q.Build
End If
Tables("窗口1"_Table1").DataSource =DataTables("统计表1")
Tables("窗口1"_Table1").DataTable.DataCols("中标价").Decimals =2
Tables("窗口1"_Table1").DataTable.DataCols("采购价").Decimals =2
If Tables("窗口1"_Table1").DataTable.DataCols.Contains("金额")=False Then
Tables("窗口1"_Table1").DataTable.DataCols.Add("金额", Gettype(Double), "[数量]*[采购价]")
End If
Tables("窗口1"_Table1").SetColVisibleWidth(" 省略......")
Tables("窗口1_Table1").SetHeaderRowHeight(40)
Forms("窗口1").Opento("统计表1")
MainTable = Tables("统计表1")
End Select
但实现上行不通。
问题：代码不合并时分别点击菜单按钮后，再点击按钮，能达到预期。合并后就不行，请问老师，遇到这种如何解决？谢谢
加好友 
发短信
Post By：2018/5/14 7:56:00 [只看该作者]
