- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 怎么让一个数据表显示需要的列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179309)
-- 发布时间：2022/8/17 18:10:00
-- [求助] 怎么让一个数据表显示需要的列
需求:我想在选择主表上一行信息时，根据判断这个信息的归类，让另一个表上的某些列的数据（非全部数据列）显示在这个Table2下，看到这个信息的明细。
问题：这是我编辑的一个代码，请大佬帮看下，问题出在哪？本人初学，还请多多指导！
Dim httz As DataTable = DataTables("合同台账")
Dim htlx As DataCol = httz.DataColS("合同类型")
Dim htmx As DataTable = DataTables("合同清单明细")
If htlx Is Nothing Then
ElseIf htlx.Name = "劳务分包、专业分包" Then
Table2 As DataCol In htmx.DataColS("项目名称"、"项目特征"、"工作内容"、"计算规则"、"分包模式"、"单位"、"暂定工程量"、"不含税单价"、"税率"、"甲供材")
ElseIf htlx.Name = "机械租赁" Then
Table2 As DataCol In htmx.DataColS("项目名称"、"规格型号"、"分包模式"、"单位"、"暂定数量"、"暂定租赁时间"、"不含税单价"、"税率")
ElseIf htlx.Name = "其他" Then
Table2 As DataCol In htmx.DataColS("项目名称"、"分包模式"、"单位"、"暂定数量"、"暂定租赁时间"、"不含税单价"、"税率")
End If
此主题相关图片如下：1660727065871_7acce566-47fb-4f69-8853-843798c178b1.png
此主题相关图片如下：547abebc16b874b8d9718360bb71a96046d698050800e7511e8409e90214f1cdqzpcvxnlcnncqwrtaw5cqxbwrgf0yvxsb2ftaw5nxerpbmduywxrxdczmja3ndm4mf92mlxjbwfnzuzpbgvzxde2nja3mjcymdq1nzrfnuzgmddequutnkqwnc00ztg5luezmtctmzqzqjnbnzreqjrglnbuzw==.png
-- 发布时间：2022/8/18 8:39:00
--
If e.Table.Current Is Nothing Then \'如果Current为Nothing
Return \'则返回
End If
dim t as table = e.form.controls("table2").table
select casee.Table.Current("合同类型")
case "劳务分包、专业分包"
t.SetColVisibleWidth("项目名称|-1|项目特征|-1|........")
case "机械租赁"
t.SetColVisibleWidth("项目名称|-1|规格型号|-1|........")
case "xxx"
t.SetColVisibleWidth("xxxx|........")
……