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

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 DataRow
For i As Integer = 0 To n-1
dr = DataTables("tmp入库表").DataRows(i)
If dr IsNot Nothing Then 判断i行为数据行
dr("入库来源") = ky
dr("入库日期") = kr
dr("原始单号") = kyh
dr("仓位") = kc
End If
Next

不知道错在那了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:jianxiaocun.rar

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

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

我是想我填了型号的,有数据的行才进行填充.

没填型号的就不要填充

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

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

要是处理一个表中所以有数据的行呢?怎么进行填充呢?

因为我会输入多行数据.

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

有数据的判断条件是什么？

判断条件如果某行有数据,就填充此行.

如果中间有行没有数据,不填充.