专家坐堂-无法找到表Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  无法找到表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57976)

--  作者：wanm2014
--  发布时间：2014/10/9 14:26:00
--  无法找到表
老师们看看
此主题相关图片如下：无法找到表.jpg

--  作者：Bin
--  发布时间：2014/10/9 14:27:00
--
请上例子

--  作者：有点甜
--  发布时间：2014/10/9 14:30:00
--
贴出代码。

--  作者：wanm2014
--  发布时间：2014/10/9 14:33:00
--

Tables("添加物料_产品信息表").Filter = "供应商名称 =\'" & Tables("订单明细表").Current("订单客户") & "\'"
Tables("添加物料_产品信息表").Sort = "存货名称"
Dim chmc As winForm.ComboBox = e.Form.Controls("存货名称")
chmc.ComboList =DataTables("产品信息表").GetComboListString("存货名称","供应商名称 = \'" & Tables("订单明细表").Current("订单客户") & "\'" )

--  作者：有点甜
--  发布时间：2014/10/9 14:36:00
--
If Tables("订单明细表").Current Is Nothing Then
    Tables("添加物料_产品信息表").Filter = "1=2"
Else
    Tables("添加物料_产品信息表").Filter = "供应商名称 =\'" & Tables("订单明细表").Current("订单客户") & "\'"
    Tables("添加物料_产品信息表").Sort = "存货名称"
    Dim chmc As winForm.ComboBox = e.Form.Controls("存货名称")
    chmc.ComboList =DataTables("产品信息表").GetComboListString("存货名称","供应商名称 = \'" & Tables("订单明细表").Current("订单客户") & "\'" )
End If

--  作者：wanm2014
--  发布时间：2014/10/9 14:43:00
--
谢谢