主题：Filter

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() '填充数

"fa piao记录"表有日期列,Filter"产品目录"表相应数据后,怎么用代码将窗口日期控件的值写入"fa piao记录"表日期列?