以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=63493)

--  作者:hh123456
--  发布时间:2015/1/22 10:28:00
--  求助

请帮助修正错误:

wlmc.Combolist =DataTables("物料信息表").GetCombolistString("物料名称","供货厂家 = \'" & Tables("订单主表").Current("订单客户") &  "\'"


--  作者:Bin
--  发布时间:2015/1/22 10:30:00
--  
出现什么问题?  是不是没有当前行?

if Tables("订单主表").Current isnot nothing then
    wlmc.Combolist =DataTables("物料信息表").GetCombolistString("物料名称","供货厂家 = \'" & Tables("订单主表").Current("订单客户") &  "\'"
end if

--  作者:hh123456
--  发布时间:2015/1/22 10:50:00
--  

请帮助纠错:

Dim wlbh As WinForm.TextBox = e.Form.Controls("物料编号")
Dim wlmc As WinForm.ComboBox = e.Form.Controls("物料名称")
Dim xhgg As WinForm.TextBox = e.Form.Controls("型号规格")

Tables("添加物料_物料信息表").Filter = "物料编号 like \'*" & wlbh.text & "*\'and 物料名称 like \' * " & wlmc.text & " * \' and 型号规格 like \' * " & xhgg.text & " *\' and 供货厂家 = "\' & tables("订单主表").Current("订单客户") & "\'"


--  作者:hh123456
--  发布时间:2015/1/22 10:51:00
--  
谢谢
--  作者:Bin
--  发布时间:2015/1/22 10:54:00
--  
参考帮助http://www.foxtable.com/help/topics/1058.htm