'原状态为待处理的表单向下传递时清空退回者
If zt = "待处理" Then
pr("sys_Fback") = Nothing
End If
pr.save()
If Vars("CanSave") = True Then
Dim cmd As New SQLCommand
cmd.ConnectionName = Mydata
cmd.CommandText = "select * from {事务提醒}"
Dim dt As DataTable = cmd.ExecuteReader(True)
If pr("sys_Fzt") <> "已完成" Then '只有"待处理"的表单才更新事务
dr = dt.Find("单据名称 = '" & Mtb & "' and 单据编号 = '" & pr(Idcol) & "'")
If dr IsNot Nothing Then
dr("sys_Fback") = pr("sys_Fback")
End If
dt.save()
End If
End If
执行上述代码后用 dr("sys_Fback") Is Null 来筛选数据就没有了,
msgbox(dr("sys_Fback"))显示为空值,但却不是Null了。为什么?
谢谢!