DataTables("物料表").Save()
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("销售订单明细DD_Table1")

tbl.fill("s elect 产品号,客户号,{物料表}.物料号,物料名称,规格型号,图号,版本号,名称,客户料号,长,宽,厚,固定价,图纸文件,图纸预览图,{产品表}.备注 f rom {物料表} left join {产品表} on {物料表}.字符属性2 = {产品表}.产品号 where {物料表}.字符属性1 <> \'半成品\' and {物料表}.批准人 Is not null","SQL1",True)
\'
Tables("销售订单明细DD_Table1").SetColVisibleWidth("物料号|90|物料名称|120|规格型号|120|产品号|80|客户号|40|图号|130|版本号|30|名称|130|客户料号|130|长|40|宽|40|厚|40|单位|30|材质|60|颜色|60|图纸预览图|20")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = " 物料号 Like " & txt & " Or 物料名称 Like " & txt & " Or 规格型号 Like " & txt & " Or 图号 Like " & txt & " Or 名称 Like " & txt & " Or 客户料号 Like " & txt & " Or 产品号 Like " & txt
End If
tbl.sort = "物料号 desc"

e.Form.Controls("PictureBox1").BindingField = "销售订单明细DD_Table1.图纸预览图"

e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框