如果只有一个列空值,比较好处理
dim filter as string
if dr1.isnull("客户代号")
filter = "[销货单号] = '" & dr1("销货单号") & "'And [销货日期] = '" & dr1("销货日期") & "'And[客户代号] is null And[SST] = '" & dr1("SST") & "'"
else
"[销货单号] = '" & dr1("销货单号") & "'And [销货日期] = '" & dr1("销货日期") & "'And[客户代号] = '" & dr1("客户代号") & "'And[SST] = '" & dr1("SST") & "'"
end if
Dim fdr As DataRow = t1.Find(filter )
如果有多个列空值,就麻烦了,一个列为空,两个列为空,...,判断都要单独处理