代码修正,如何实现代码在第一次运行的时候,判断当审结日期不等于空的时候,不增加告知内容,当代码第二次及以后代码运行的时候,则增加告知内容数据。
代码如下:
Dim tb1 As WinForm.Table = e.Form.Controls("table1")
Dim tb2 As WinForm.Table = e.Form.Controls("table2")
For Each r1 As Row In tb1.Table.Rows
Dim drs As List(of DataRow) = DataTables("职务").SQLSe lect("制单人='" & r1("承办人") & "'")
For Each dr As DataRow In drs
Dim dr21 As DataRow = DataTables("告知内容").sqlfind("姓名 = '" & dr("职务人员") & "' and 部门受案号 = '" & r1("部门受案号") & "' and 审结日期 = #" & r1("审结日期") & "# " )
If dr21 Is Nothing Then '如果不存在同编号的订单
Dim r2 As Row =tb2.Table.AddNew
r2("姓名") = dr("职务人员")
r2("流程时间")=r1("受理日期")
r2("案件类别")=r1("案件类别")
r2("审结日期")= r1("审结日期")
r2("序号")= r1("_identify")
r2.save
End If
Next
Next