Dim dc As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "单号", "货料编码", "选择"
If dc.IsNull(e.DataCol.Name) Then
dc("核对备注") = Nothing
Else
'Dim fdr As DataRow = DataTables("销售开单").SQLfind("货料编码='" & dc("货料编码") & "'and 单号='" & dc("单号") & "'and 数量='" & dc("数量") & "'and 结算金额='" & dc("结算金额") & "'")
Dim st = dc("数量")
Dim fdr As DataRow = DataTables("销售开单").SQLfind("货料编码='" & dc("货料编码") & "'and 单号='" & dc("单号") & "'")
If fdr IsNot Nothing Then
dc("核对备注") = fdr("单号")
End If
End If
End Select
为什么使用 'Dim fdr As DataRow = DataTables("销售开单").SQLfind("货料编码='" & dc("货料编码") & "'and 单号='" & dc("单号") & "'and 数量='" & dc("数量") & "'and 结算金额='" & dc("结算金额") & "'")，不能引出值来呢？？？
加好友 
发短信
Post By：2022/9/27 2:06:00 [只看该作者]
