主题：代码修正，如何判断代码在第一次运行的时候，判断当审结日期不等于空的时候，不增加告知内容，当代码第二次运行的时候，则增加告知内容数据。

代码修正，如何实现代码在第一次运行的时候，判断当审结日期不等于空的时候，不增加告知内容，当代码第二次及以后代码运行的时候，则增加告知内容数据。

代码如下：

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