| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 动态表双击响应 求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145018) |
| -- 作者：xa139 -- 发布时间：2020/1/6 11:26:00 -- 动态表双击响应 求助 项目事件Initialize加入代码： For Each dt As DataTable In DataTables 项目属性 ,全局表事件DoubleClick 加入代码 MessageBox.Show(e.Table.Name) 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 动态表 生成代码 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) 运行后希望双击动态表获取改行某列值 请问代码有什么问题,应该怎么改? |
| -- 作者：有点蓝 -- 发布时间：2020/1/6 11:32:00 -- 去掉事件Initialize代码 动态表 生成代码 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 |
| -- 作者：xa139 -- 发布时间：2020/1/6 11:39:00 -- tbl.datatable.GlobalHandler.DoubleClick = True 提示 编译错误：DataTable不是WinForm.Table”的成员。 错误代码：tbl.DataTable.GlobalHandler.DoubleClick=True
|
| -- 作者：有点蓝 -- 发布时间：2020/1/6 11:54:00 -- tbl.table.datatable.GlobalHandler.DoubleClick = True |
| -- 作者：xa139 -- 发布时间：2020/1/6 11:55:00 -- 好了 感谢 |