主题：Filter

 b.Rows(r)("日期") = e.Form.Controls("日期").Text

哦,还是可以有两个用法.

谢谢!

数据接收表是关联表的情况下怎么办?DataTable和Table问题怎么处理?

 

Dim Filter As String
Dim kehu As String = e.Form.Controls("DropBox1").Value
Filter = Filter &  " 收货仓 = '" & kehu & "'"

Dim f As New Filler
f.SourceTable = DataTables("装箱参数") '指定数据来源
f.SourceCols = "零件编码,零件图号,零件名称,装箱数量,单位" '指定数据来源列
f.DataTable = DataTables("销售出库.销售明细") '指定数据接收表
f.Filter = Filter
f.Fill() '填充数
Dim b As Table = Tables("销售出库.销售明细")
For r As Integer = 0 To b.Rows.Count - 1   
    b.Rows(r)("出库单号") = e.Form.Controls("TextBox1").Text   
Next
For r As Integer = b.rows.Count - 1 To 0 Step -1
Next

 表名写成子表 销售明细

 

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

 

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

可以了,因窗口表为关联表,之前以为表名写子表行不通呢.