赋值给窗口的第一行开始啊Dim dts As List(Of DataRow) = DataTables("批量勾选_Table1").Select("[勾选] = True")
For c As Integer = 0 To dts.count - 1
Dim r As Row = Tables("月租收费_Table1").Rows(c)
If r Is Nothing Then
r(c)("住址_序号") = dts(c)("住址_序号")
r(c)("住址_巷") = dts(c)("住址_巷")
r(c)("住址_号") = dts(c)("住址_号")
r(c)("住址_房") = dts(c)("住址_房")
r(c)("姓名") = dts(c)("姓名")
r(c)("固定电话") = dts(c)("固定电话")
r(c)("手机号码") = dts(c)("手机号码")
r(c)("车牌号码") = dts(c)("车牌号码")
r(c)("备注") = dts(c)("备注")
r(c).Save
End If
Next
If Tables("月租收费_Table1").Rows.Count < 10 Then
Dim i As Integer = 10 - Tables("月租收费_Table1").Rows.Count
Tables("月租收费_Table1").AddNew(i)
End If
e.Form.Close()
这样写同样不行。