Case "产品信息"
Dim fit As String="Select 产品编号,产品名称,研发负责人,模具负责人 Fro m {产品信息} where 产品名称='" & tx & "'"
t.Fill(fit,"外部数据-1",True)
vars("当前表") = “产品信息”
Case "数据更改统计表"
Dim fit As String="Select 产品名称,接收时间,备注说明 Fro m {数据更改统计表} where 产品名称='" & tx & "'"
t.Fill(fit,"外部数据-1",True)
vars("当前表") = “数据更改统计表”
双击事件
if vars("当前表") = “产品信息” then
打开 窗口A
else
打开 窗口B
end if