你好，我做了下拉窗口，基本和 帮助中 自定义录入界面之三 类似，下拉窗口的 table是 用fill，现在发现在程序运行后，第一次下拉时是正确的，后面后台有添加数据，再次下拉时，不会同步更新，这可能是什么原因？会不会是服务器的原因？重启程序能更新过来。请老师指教
dropdownopened 事件代码：
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() '将输入焦点返回下拉列表框
加好友 
发短信
Post By：2022/4/3 13:21:00 [显示全部帖子]
