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

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

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

此主题相关图片如下：19.jpg