Dim ds As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "往来单位","单号","货物编码"
Dim fds As DataRow = DataTables("当月销售").find("客户全称='" & ds("往来单位") & "'and 货料编码='" & ds("货物编码") & "'and 单号='" & ds("单号") & "'")
If ds.IsNull(e.DataCol.Name) Then
fds("核对备注") = Nothing
Else
If fds IsNot Nothing And fds("会计年度") = Nothing
fds("核对备注") = ds("单号")
End If
End If
End Select
此主题相关图片如下:qq截图20190408183235.gif
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-4/20194818332751815.gif)
不知哪里错了,查不出原因,请指点下