主题：动态表双击响应 求助

动态表 生成代码

tbl = e.Form.CreateSQLQuery("Table2", "Se1ect * From {样本信息表}","flowcm")

tbl.SetBounds(10, 10, 600, 400)

tbl.Width= e.Form.BaseForm.Width  -e.Form.controls("WebBrowser1").Width -40

 tbl.Height=328

tbl.Top=3

tbl.Left=e.Form.controls("WebBrowser1").Width +10 

e.Form.AddControl(tbl)

tbl.datatable.GlobalHandler.DoubleClick = True

DoubleClick 加入代码

MessageBox.Show(e.Table.Name)

e.cancel = true

Se1ect Case e.Table.Name

    Case "表A"

        '针对表A的代码

    Case "表B"

        '针对表B的代码

    Case "表C"

        '针对表C的代码

Case Else 

If forms("report_flow").opened

forms("report_flow").controls("TextBox2").text = "qwewqewqeWQE"

End If

End Se1ect