主题：请教关于doubleclick的问题， 谢谢

窗口表事件

 

添加订购单位_客户表_DoubleClick

 

Tables("订单主表.客户表").current("客户名称")= e.Table .current("客户名称")

 

Forms("添加订购单位").close

 

窗口与控件事件

 

添加订购单位_AfterLoad

 

Tables("添加订购单位_客户表").sort ="客户名称"

 

添加订购单位_查询_Click

 

Dim khmc As WinForm.TextBox = e.Form.Controls("客户名称")

Dim sf As WinForm.ComboBox = e.Form.Controls("省份")

Dim xm As WinForm.TextBox = e.Form.Controls("姓名")

Tables("添加订购单位_客户表").filter = "客户名称  like '*" & khmc.text & "*' and 省份 like '*" & sf.text & "*' and 姓名 like '*" & xm.text & "*'"