Dim sCols() As String = {"客户名称","零件图号","零件名称","单价"}
Dim dCols() As String = {"客户名称","零件图号","零件名称","单价"}
Dim dt1 As DataTable = DataTables("产品目录") '指定数据来源
Dim dt2 As DataTable = DataTables("fa piao记录") '指定数据接收表
Dim kehu As String = e.Form.Controls("guke1").Value
Dim riqi As String = e.Form.Controls("日期").Value
Dim Filter As String = " 客户名称 = '" & kehu & "'"
For Each dr As DataRow In dt1.Select(filter)
Dim nr As DataRow = dt2.AddNew()
For i As Integer =0 To sCols.Length -1
nr(dCols(i)) = dr(sCols(i))
Next
nr("日期") = riqi
Next