以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  SQLTable动态表的绑定与设置显示行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161223)

--  作者:采菊东篱下
--  发布时间:2021/3/10 12:22:00
--  SQLTable动态表的绑定与设置显示行

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

我想通过选定下拉选项上的值,其他收费录入_Table1表显示不同列,这样写有显示了,但选择下拉选项后显示格式没变化!
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

--  作者:有点蓝
--  发布时间:2021/3/10 13:34:00
--  
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())

--  作者:采菊东篱下
--  发布时间:2021/3/10 13:47:00
--  
msgbox(e.Form.Controls("XX").Value)弹出的显示是选定的值,msgbox(Tables("其他收费录入_Table1").GetColVisibleWidth())弹出是没有加载的列,表没绑到窗口。
--  作者:有点蓝
--  发布时间:2021/3/10 13:52:00
--  

If e.Form.Controls("XX").Value = "铺位租金收入" Then
msgbox(1)
    Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")
    Tables("其他收费录入_Table1").SetColVisibleWidth("住址_巷|60|住址_号|40|住址_房|40|姓名|40|单位名称|100|手机号码|80|备注|200|其他收入_数量|60|其他收入_金额|80")
ElseIf e.Form.Controls("XX").Value = "广告收入" Then
msgbox(2)
    Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")
    Tables("其他收费录入_Table1").SetColVisibleWidth("单位名称|100|备注|200|其他收入_数量|60|其他收入_金额|80")
End If
msgbox(Tables("其他收费录入_Table1").GetColVisibleWidth())

--  作者:采菊东篱下
--  发布时间:2021/3/10 14:07:00
--  
不是回你了吗,没有把DataTables("缴费情况")表绑定到Tables("其他收费录入_Table1")

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


--  作者:采菊东篱下
--  发布时间:2021/3/10 14:08:00
--  
我这是上SQLTable表
--  作者:采菊东篱下
--  发布时间:2021/3/10 14:09:00
--  
难道要改为Normal副本?
--  作者:采菊东篱下
--  发布时间:2021/3/10 14:10:00
--  
试过了,改这Normal副本也没有绑定到窗口
--  作者:采菊东篱下
--  发布时间:2021/3/10 14:12:00
--  
我的代码是写在下拉选项的SelectedIndexChanged事件里。
--  作者:有点蓝
--  发布时间:2021/3/10 14:14:00
--  
我想要知道的是msgbox(1)和msgbox(2)能不能弹出来,而且"缴费情况"也不可能有第一列这种列吧