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 dr As DataRow
For Each dr In = DataTables("tmp入库表").DataRows
If dr("类型") >'' Then
dr("入库来源") = ky
dr("入库日期") = kr
dr("原始单号") = kyh
dr("仓位") = kc
End If
Next
[此贴子已经被作者于2011-6-24 11:24:26编辑过]