是正在编辑的一个按钮“新增账单”，编辑编辑就这样了，下面是窗口afterload和按钮的代码

afterload

With Tables("租户合同台账")

    .AddNew()

    .Current("台账号") = Tables("房间台账").Current("台账号")

    .Current("合同号") = Tables("房间台账").Current("租户合同号")

    .Current("租户编号") = "租户" & .Current("_Identify")

    .Current("区域") = Tables("房间台账").Current("区域")

    .Current("房间号") = Tables("房间台账").Current("房间号")

    .Current("卧室号") = Tables("房间台账").Current("卧室号")

    If Tables("房间台账").Current.IsNull("定金条编号") Then

    Else

        .Current("出房人") = Tables("房间台账.定金违约").Current("出房人")

        .Current("定金") = Tables("房间台账.定金违约").Current("定金")

     \'   e.Form.Controls("TextBox1").value = Tables("房间台账.定金违约").Current("月租金")

        .Current("承租人") = Tables("房间台账.定金违约").Current("承租人")

        .Current("电话") = Tables("房间台账.定金违约").Current("电话")

    End If

End With

\'e.Form.Controls("TabControl1").tabpages(1).Visible = False

\'e.Form.Controls("TabControl1").tabpages(2).Visible = False

\'e.Form.Controls("TabControl1").tabpages(3).Visible = False

 

新增账单

Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox5")

Dim cb7 As WinForm.ComboBox = e.Form.Controls("ComboBox7")

Dim cb6 As WinForm.ComboBox = e.Form.Controls("ComboBox6")

Dim d As WinForm.ComboBox = e.Form.Controls("ComboBox8")

Dim t As WinForm.TextBox = e.Form.Controls("TextBox2")

Dim b As Integer = 1

If cb.Value = "" Then

    messagebox.Show("未填写<账单项目>,请填写完毕后再新增账单!")

    b = 0

Else If d.Value Is Nothing Then

    messagebox.Show("未填写<应收日期>,请填写完毕后再新增账单!")

    b = 0

Else If t.Value Is Nothing Then

    messagebox.Show("未填写<应收金额>,请填写完毕后再新增账单!")

    b = 0

End If

With Tables("租户账单")

    If b = 1 And  cb6.value Is Nothing Then

        .AddNew()

        .Current("合同号") = Tables("租户合同台账").Current("合同号")

        Dim dr As DataRow

        dr = DataTables("租户账单").Find("应收日期 > \'" & d.value & "\' And 合同号 = \'" & .Current("合同号") & "\'")

        If dr IsNot Nothing Then \'如果找到的话

            .Current("租期编号") = dr("租期编号")

            .Current("账期") = dr("账期")

        End If

        .Current("账单项目") = cb.value

        .Current("应收应付") = cb7.value

        .Current("应收日期") = d.value

        .Current("应收金额") = t.value

    Else If b = 1 Then

msgbox(1)

        Dim rq() As String

        Dim zq() As String

        Dim zdq() As String

        Dim i As Integer = 0

        For Each r As Row In Tables("租户合同台账.租户账单").Rows

 

            If r("应收日期") >= cb6.value

msgbox(r("应收日期"))

                rq(i) = cstr(r("应收日期"))

msgbox(rq(i))

                zq(i) = r("租期编号")

                zdq(i) = r("账期")

                i +=i

            End If

        Next

msgbox(2)

        For j As Integer = 0 To i

            .AddNew()

            .Current("合同号") = Tables("租户合同台账").Current("合同号")

            .Current("租期编号") = zq(i)

            .Current("账期") = zdq(i)

            .Current("账单项目") = cb.value

            .Current("应收应付") = cb7.value

            .Current("应收日期") = cdate(rq(i))

            .Current("应收金额") = t.value

        Next

    End If

End With

后来把这两段代码都删除，窗口还是报错，崩溃了