- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]菜鸟求助跨表数据调用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116382)
-- 发布时间：2018/3/23 16:13:00
-- [求助]菜鸟求助跨表数据调用
狐爸，我刚接触foxtable，试着做了一个工资表，其中，已经做了一个跨表的数据调用，但现在需要再调用另外一个表中的内容，具体如下：
-- 发布时间：2018/3/23 16:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
附件
-- 发布时间：2018/3/23 16:31:00
--
发放工资表，DataColChanged事件，写代码
Select Case e.DataCol.name
Case "员工职级_等", "员工职级_级"
If e.DataRow("员工职级_等") <> Nothing AndAlso e.DataRow("员工职级_级") <> Nothing Then
Dim dic As new Dictionary(of String, DataRow)
For Each dr As DataRow In DataTables("工资等级表").Select("职等 = \'" & e.DataRow("员工职级_等") & "\'")
dic.Add(dr("类别"), dr)
Next
Dim s1 = dic("岗位固定工资")("职级_" & e.DataRow("员工职级_级"))
Dim s2 = dic("岗位绩效工资")("职级_" & e.DataRow("员工职级_级"))
Dim s3 = dic("月薪")("职级_" & e.DataRow("员工职级_级"))
msgbox(s1)
msgbox(s2)
msgbox(s3)
End If
End Select
-- 发布时间：2018/3/23 17:01:00
--
按照您的提示，我输入了，结果显示不了啊，有错误提示
此主题相关图片如下：qq图片20180323165930.png
-- 发布时间：2018/3/23 17:21:00
--
弹出的数据，不是你需要的数据？
如果弹出了正确数据，赋值到你各个列去即可，如
Dim s1 = dic("岗位固定工资")("职级_" & e.DataRow("员工职级_级"))
e.DataRow("某列") = s1
\'Dim s2 = dic("岗位绩效工资")("职级_" & e.DataRow("员工职级_级"))
\'Dim s3 = dic("月薪")("职级_" & e.DataRow("员工职级_级"))
\'msgbox(s1)
\'msgbox(s2)
\'msgbox(s3)