Dim ds As DataRow = e.DataRow Select Case e.DataCol.Name Case "往来单位","单号","货物编码" Dim fds As DataRow = DataTables("当月销售").find("客户全称='" & ds("往来单位") & "'and 货料编码='" & ds("货物编码") & "'and 单号='" & ds("单号") & "'") If fds IsNot Nothing Then If ds.IsNull(e.DataCol.Name) Then fds("核对备注") = Nothing Else If fds("会计年度") = Nothing fds("核对备注") = ds("单号") End If End If End If End Select
|