Foxtable(狐表)用户栏目专家坐堂 → 动态表双击响应 求助


  共有3605人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
xa139
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:282 积分:2835 威望:0 精华:0 注册:2019/4/23 11:17:00
动态表双击响应 求助  发帖心情 Post By:2020/1/6 11:26:00 [只看该作者]

项目事件Initialize加入代码:

For Each dt As DataTable In DataTables
    dt.GlobalHandler.
DoubleClick True
Next

项目属性 ,全局表事件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)

运行后希望双击动态表获取改行某列值

请问代码有什么问题,应该怎么改?




 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:282 积分:2835 威望:0 精华:0 注册:2019/4/23 11:17:00
  发帖心情 Post By:2020/1/6 11:39:00 [只看该作者]

tbl.datatable.GlobalHandler.DoubleClick True  提示
编译错误:DataTable不是WinForm.Table”的成员。
错误代码:tbl.DataTable.GlobalHandler.DoubleClick=True

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/6 11:54:00 [只看该作者]

tbl.table.datatable.GlobalHandler.DoubleClick True 

 回到顶部
帅哥哟,离线,有人找我吗?
xa139
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:282 积分:2835 威望:0 精华:0 注册:2019/4/23 11:17:00
  发帖心情 Post By:2020/1/6 11:55:00 [只看该作者]

好了 感谢

 回到顶部