- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 代码出错（已解决） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=13971)
-- 发布时间：2011/11/3 14:06:00
-- 代码出错（已解决）
一段代码，目的是跨表引用相同编号最近日期的“单位”值，其中filter的条件代码应该怎样写，请各位老师帮助指教，谢谢！！
\'跨表引用
Select Case e.DataCol.Name
Case "编号","单位"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("编号") Then
dr("xm") = Nothing
Else
Dim filter As String
filter = "编号 = \'" & dr("编号") & "\',\'"日期 Desc"\'"
pr = DataTables("报酬明细").Find(filter)
If pr IsNot Nothing Then
dr("单位") = pr("单位")
End If
End If
End Select
[此贴子已经被作者于2011-11-3 15:03:03编辑过]
-- 发布时间：2011/11/3 14:10:00
--
Select Case e.DataCol.Name
Case "编号","单位"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("编号") Then
dr("xm") = Nothing
Else
pr = DataTables("报酬明细").Find("编号 = \'" & dr("编号") & "\', "日期 Desc")
If pr IsNot Nothing Then
dr("单位") = pr("单位")
End If
End If
End Select
-- 发布时间：2011/11/3 14:38:00
--
谢谢狐爸老师的回复，好像还有一点问题，请狐爸老师指教，谢谢！！
此主题相关图片如下：r.png
-- 发布时间：2011/11/3 14:40:00
--
Select Case e.DataCol.Name
Case "编号","单位"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("编号") Then
dr("xm") = Nothing
Else
pr = DataTables("报酬明细").Find("编号 = \'" & dr("编号") & "\'", "日期 Desc")
If pr IsNot Nothing Then
dr("单位") = pr("单位")
End If
End If
End Select
-- 发布时间：2011/11/3 15:03:00
--
代码效果完美，谢谢狐爸老师！！