主题：[求助]循环填充代码出问题

看不懂你的代码，不知道你的目的什么。

你的代码明明就是有多少行，就填充多少行的。

只要处理选定行？那就这样：

Dim ky As String  = e.Form.Controls("入库来源").Value
Dim kr As Date = e.Form.Controls("DateTimePicker1").Value
Dim kyh As String  = e.Form.Controls("TextBox2").Value
Dim kc As String = e.Form.Controls("仓位").Value
Dim n As Integer = Tables("tmp入库表").Rows.Count
Dim dr As Row
dr = Tables("tmp入库表").Current
If dr IsNot Nothing Then
    dr("入库来源") = ky
    dr("入库日期") = kr
    dr("原始单号") = kyh
    dr("仓位") = kc
End If

有数据的判断条件是什么？ 某一列有数据就算有数据，还是全部列有数据才算有数据。