主题：窗口勾选数据录入

下面的代码已成功实现勾选窗口中的数据录入下表中，现在我想把红色部份代码改为替代单元格数据，因为表中已存在空行，只需把数据录入，不需要删除空行后再添加，且有时一些其他列已录入数据，下面的代码会把已录入数据删除，我把红色代码直接删除，就报错，请教应如何改？

For Each dt As DataRow In DataTables("批量勾选_Table1").Select("[车牌号码] is not null")

    Dim r As DataRow = DataTables("月租收费_Table1").Find("[车牌号码] = '" & dt("车牌号码") & "'")

    If r Is Nothing Then

        If dt("勾选") = True Then

            r = DataTables("月租收费_Table1").addnew

            r("住址_序号") = dt("住址_序号")

            r("住址_巷") = dt("住址_巷")

            r("住址_号") = dt("住址_号")

            r("住址_房") = dt("住址_房")

            r("姓名") = dt("姓名")

            r("固定电话") = dt("固定电话")

            r("手机号码") = dt("手机号码")

            r("车牌号码") = dt("车牌号码")

            r("备注") = dt("备注")

        End If

    End If

Next

If DataTables("月租收费_Table1").DataRows.Count < 10 Then

    Dim i As Integer = 10 - DataTables("月租收费_Table1").DataRows.Count

    DataTables("月租收费_Table1").AddNew(i)

End If

e.Form.Close()