- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 运行时出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133157)
-- 发布时间：2019/4/8 18:34:00
-- 运行时出错
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
不知哪里错了，查不出原因，请指点下
-- 发布时间：2019/4/8 18:36:00
--
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
-- 发布时间：2019/4/10 14:32:00
--
多谢，解决了