主题：科目导入

Dim xj As WinForm.DateTimePicker = e.Form.Controls("录入日期")

If xj.text = "" Then

    MessageBox.Show("请输入录入凭证日期!")

Else

    vars("cc") = xj.text

    Dim r1 As DataRow = DataTables("凭证").find("日期 >= #" & vars("cc") & "# And 审核 = True ")

    If r1 Is Nothing Then

        Tables("凭证").Sort = "日期,凭证ID"

        Tables("凭证明细").Sort = "日期,凭证ID"

        DataTables("凭证").LoadFilter = "[审核] = false "

        DataTables("凭证").Load()

        Forms("凭证").open

        If Tables("凭证").Rows.Count = 0 Then

            Dim r As Row = Tables("凭证").AddNew()

            If r Is Nothing Then Return

            r("日期") = vars("cc")

            For i As Integer = 1 To 7

                Dim nr As Row = Tables("凭证.凭证明细").AddNew()

                nr("日期") = r("日期")

            Next

        End If

        Forms("凭证").Controls("附件张数").Select

    Else

        messagebox.show("该日期凭证已审核,不能再录入!")

    End If

End If