主题：Filter

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

 

 看3楼。

 看3楼。

 

 6楼代码

 

Dim Filter As String

Dim kehu As String = e.Form.Controls("guke1").Value

Filter = Filter &  " 客户名称 = '" & kehu & "'"

Dim f As New Filler

f.SourceTable = DataTables("产品目录") '指定数据来源

f.SourceCols = "客户名称,零件图号,零件名称,单价" '指定数据来源列

f.DataTable = DataTables("fa piao记录") '指定数据接收表

f.Filter = Filter

f.Fill() '填充数

 

Dim b As Table = Tables("fa piao记录")

For r As Integer = 0 To b.Rows.Count - 1
   
    b.Rows(r)("日期") = e.Form.Controls("日期").Text
   
Next

For r As Integer = b.rows.Count - 1 To 0 Step -1
   
Next

 

 表名写成子表 销售明细

 

 只需要填充以后，赋值主表的编号即可，比如

 

 b.Rows(r)("编号") = Tables("主表").Current("编号")