- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何进行本表查询引用问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115900)
-- 发布时间：2018/3/16 11:27:00
-- [求助]如何进行本表查询引用问题？
如下图：
此主题相关图片如下：截图04.jpg
关系式如下：
1、2017年的文明单位奖为600元，2018年的“上年度文明单位奖”为600元。
2、自2018年起，“本年度文明单位奖”＝（基本工资+津补贴+上年度文明单位奖）/12
3、“上年度文明单位奖”＝本年度（如：年度为2019年）的上一年的“本年度文明单位奖”（即2018年的）
写了一个代码，但不行，请专家看看：
Select Case e.DataCol.Name
Case "年度","月均文明单位奖"
Dim fdr7 As DataRow = e.DataTable.find("年度 = \'" & e.DataRow("年度") & "\'-1 And 身份证号 = \'" & e.DataRow("身份证号") & "\'", "月均文明单位奖")
If e.DataRow("月均文明单位奖") = Nothing Then
e.DataRow("上年度文明单位奖") = Nothing
Else
If e.DataRow("年度") = 2018 Then
e.DataRow("上年度文明单位奖") = 600
ElseIf e.DataRow("年度") > 2018 Then
e.DataRow("上年度文明单位奖") = fdr7("月均文明单位奖")
End If
End If
End Select
-- 发布时间：2018/3/16 11:53:00
--
改成
Dim fdr7 As DataRow = e.DataTable.find("年度 = \'" & e.DataRow("年度")-1 & "\' And 身份证号 = \'" & e.DataRow("身份证号") & "\'", "月均文明单位奖")