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


  共有2415人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
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)

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

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




 回到顶部