以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  动态生成表后绑定到TAble控件 是否无法使用事件?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126794)

--  作者:蓝色理想
--  发布时间:2018/10/29 13:33:00
--  动态生成表后绑定到TAble控件 是否无法使用事件?
窗口中放了一个Table控件,用代码动态生成表,由于是动态生成的表,无法使用主表事件,发现表也无法响应全局表事件
请问是不是这种表无法使用表事件?
若能用如何用?


窗口如下:

图片点击可在新窗口打开查看此主题相关图片如下:image 2.png
图片点击可在新窗口打开查看


动态生成表的代码如下:
    Dim dtb As New  DataTableBuilder("收款录入表") \'创建临时表
    dtb.AddDef("账套期间", Gettype(Date))
    dtb.AddDef("所属公司", Gettype(String),16)
    dtb.AddDef("项目分期", Gettype(String),16)
    dtb.AddDef("房间编号" , Gettype(String),16)
    dtb.AddDef("合同编号" , Gettype(String),16)
    dtb.AddDef("乙方名称" , Gettype(String),16)

    dtb.AddDef("收款项目" , Gettype(String),16)
    dtb.AddDef("收据编号" , Gettype(String),16)
    dtb.AddDef("收款标准", Gettype(String),16)
    dtb.AddDef("收款金额", Gettype(Double))
    dtb.AddDef("应收日期", Gettype(Date))
    dtb.AddDef("收款日期", Gettype(Date))
    dtb.AddDef("备注", Gettype(String),50)
    dtb.AddDef("申报用户", Gettype(String),6)
    dtb.AddDef("用户分组", Gettype(String),10)
    dtb.AddDef("申报日期", Gettype(Date))
    dtb.AddDef("审核人员", Gettype(String),6)
    dtb.AddDef("审核日期", Gettype(Date))
    dtb.AddDef("编辑者", Gettype(String),6)
    
    dtb.Build()
    
    
    Tables("收款录入表").Visible=False
    Tables("弹出收款窗口_Table1").DataSource=DataTables("收款录入表")\'临时表绑定到窗口


--  作者:有点甜
--  发布时间:2018/10/29 14:06:00
--  

1、生成后,开启全局表事件

 

DataTables("收款录入表").GlobalHandler.drawcell = true

 

2、编写全局表代码

 

http://www.foxtable.com/webhelp/scr/0671.htm