- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请教一个数据引用的问题。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148026)
-- 发布时间：2020/3/29 18:52:00
-- [求助]请教一个数据引用的问题。
此主题相关图片如下：1.png
此主题相关图片如下：2.png
此主题相关图片如下：3.png
第一张表中有人员的属性和薪级，第二张表是对应的人员属性和薪级的工资标准，如何按照这个条件把每个人的对应的薪级工资自动填入到第三张工资表中。代码怎么写？
[此贴子已经被作者于2020/3/29 18:53:57编辑过]
-- 发布时间：2020/3/29 21:59:00
--
参考：http://www.foxtable.com/webhelp/topics/1451.htm
工资表，datacolchanged事件
If e.DataCol.Name = "身份证号码" Then
If e.NewValue Is Nothing Then
e.DataRow("工资") = Nothing
Else
Dim dr As DataRow= DataTables("表A").Find("[身份证号码] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
Dim dr2 As DataRow= DataTables("工资标准").Find("[义教专技薪级] = \'" & dr("薪级") & "\'")
If e.NewValue Is Nothing Then
e.DataRow("工资") = Nothing
Else
Dim dr As DataRow= DataTables("表A").Find("[身份证号码] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
Dim dr2 As DataRow= DataTables("工资标准").Find("[义教专技薪级] = \'" & dr("薪级") & "\'")
if dr2 isnot nothing then
e.DataRow("工资")= dr2("义教薪级标准")
end if
End If
End If
End If
End If
End If
-- 发布时间：2020/3/30 9:25:00
--
谢谢蓝版主