Foxtable(狐表)用户栏目专家坐堂 → [求助] 怎么让一个数据表显示需要的列


  共有6546人关注过本帖树形打印复制链接

主题:[求助] 怎么让一个数据表显示需要的列

帅哥哟,离线,有人找我吗?
CZX
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:140 威望:0 精华:0 注册:2022/6/20 13:55:00
[求助] 怎么让一个数据表显示需要的列  发帖心情 Post By: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
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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|........")
……

 回到顶部