Dim fdr As DataRow
If Tables("销售任务").current.IsNull("保质期") Then
fdr = DataTables("销售明细单").Find("[产品名称] = '" & Tables("销售任务").current("产品名称") & "' and 保质期 is Null")
Else
fdr = DataTables("销售明细单").Find("[产品名称] = '" & Tables("销售任务").current("产品名称") & "' and [保质期] = '" & Tables("销售任务").current("保质期") & "'")
End If
If fdr IsNot Nothing Then
msgbox("找到了")
End If
[此贴子已经被作者于2016/6/1 12:01:13编辑过]