SQLTable动态表的绑定与设置显示行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

msgbox(e.Form.Controls("XX").Value)

If e.Form.Controls("XX").Value = "铺位租金收入" Then

Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")

Tables("其他收费录入_Table1").SetColVisibleWidth("住址_巷|60|住址_号|40|住址_房|40|姓名|40|单位名称|100|手机号码|80|备注|200|其他收入_数量|60|其他收入_金额|80")

ElseIf e.Form.Controls("XX").Value = "广告收入" Then

Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")

Tables("其他收费录入_Table1").SetColVisibleWidth("单位名称|100|备注|200|其他收入_数量|60|其他收入_金额|80")

End If

msgbox(Tables("其他收费录入_Table1").GetColVisibleWidth())

主题：SQLTable动态表的绑定与设置显示行