~~老师好,请教下如何把Find出来的列内容添加到 表中的 一行内中。。
Dim dr3 As DataRow
Dim Filter3 As String
Filter3 = "[产品ID] = '" & e.DataRow("产品ID") & "' and [日期]=#" & Date.today & "#"
dr3 = DataTables("入库明细表").Find(Filter3 )
If dr3 IsNot Nothing Then '如果找到
Dim str As String = dr3("入库车号") & ":" & dr3("入库重量") & "," & dr4("库位")
For Each str1 As String In str.split(",")
e.DataRow("入库车号") = str1
Next
Else
e.DataRow("入库车号") =Nothing
End If
按照这个执行直出来的结果只显示 Find 列的第一行。。后面的数据显示不了。请教老师如何实现 所有Find的行内容都添加进去。
[此贴子已经被作者于2016/4/13 12:40:47编辑过]