主题：[求助]关联表新增行的问题

With Forms("租金生成").Controls("TextBox1")

    If.Value Is Nothing Then

    Messagebox.Show("请输入计租年份")

Else

With Forms("租金生成").Controls("TextBox2")

    If.Value Is Nothing Then

    Messagebox.Show("请输入计租月份")

Else

Dim dt1 As DataTable = DataTables("应收租金")

Dim dt2 As DataTable = DataTables("入住主表")

Dim d1 As String = e.Form.Controls("TextBox1").text

Dim d2 As String = e.Form.Controls("TextBox2").text

Dim d As Date = new Date(d1,d2,01)

Dim filter As String = "计租时间 <= #" & d & "#"

For Each dr As DataRow In dt2.Select(filter)

    Dim ndr As DataRow = dt1.AddNew

    If Cdate(dr("计租时间")).Month = d.Month Then

        ndr("租金") = dr("首月")

    Else

        ndr("租金") = dr("每月")

    End If

    ndr("合同编号") = dr("合同编号")

    ndr("记租月份") = format(d, "yyyyMM")

Next

End If

End With

End If

End With