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

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

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

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

 

没填型号的就不要填充

就是不想填充多行,就是没有填数据的就不要填充

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

 

因为我会输入多行数据.

当前行只能处理一行

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

 

 

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

 

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

 

hhbb

谢谢啊.但这个代码只能判断类型有数据才填充,我需要是如果型号,单位,数量,等有数据,也要填充

代码也有点问题

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

[此贴子已经被作者于2011-6-24 11:44:39编辑过]

谢谢hhbb!

 

修改:For  Each  T In Ts

 

为

 

For  Each T As String In Ts

 

代码ok!

 

谢谢!