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