- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助：如何在表的行里增加一个表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50552)
-- 发布时间：2014/5/8 21:25:00
-- 求助：如何在表的行里增加一个表
如何在表的行里增加一个表。
又或者说，
产品
在客户表上， 已经建立好了， 其中一个是客户A， 他的价格和别人都不一样。 怎么样能再弄一个表格或者什么方法能显示出来呢？ 出克下拉窗口或者关于窗口的？
麻烦指点
-- 发布时间：2014/5/8 21:47:00
--
再做一个价格明细表，关联产品表。
价格明细表，包含产品、客户、价格信息。
-- 发布时间：2014/5/8 21:51:00
--
以下是引用有点甜在2014-5-8 21:47:00的发言：
我尝试一下
再做一个价格明细表，关联产品表。
价格明细表，包含产品、客户、价格信息。
-- 发布时间：2014/5/9 8:40:00
--
以下是引用qq864729713在2014-5-8 21:51:00的发言：
我尝试一下
关联了之后， 在客户表上面怎么查询？ 有例子吗？
我尝试一下
-- 发布时间：2014/5/9 8:44:00
--
你想怎么查询都可以,一样的,万变不离其宗. 不会可以上个例子,说清楚你想实现的效果.
-- 发布时间：2014/5/9 8:59:00
--
以下是引用Bin在2014-5-9 8:44:00的发言：
你想怎么查询都可以,一样的,万变不离其宗. 不会可以上个例子,说清楚你想实现的效果.
开发者：136922你想怎么查询都可以,一样的,万变不离其宗. 不会可以上个例子,说清楚你想实现的效果.
如果说我需要在ABC中插入一个表格， 但是数据我还没有弄出来， 你可以随意弄个测试数据
在订单窗口中， 在订单主表，我选择客户的时候， 之后， 在订单明细中， 单独显示ABC客户的单价明细表。
或者说， 我在选择产品的时候，可以选择ABC客户的单价明细表，。 可能思路有点乱
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试数据11.zip |
[此贴子已经被作者于2014-5-9 9:06:57编辑过]
-- 发布时间：2014/5/9 10:10:00
--
回复6楼，如下，你的项目不是一般的乱......
能按部就班把帮助文档看一次吗？先不要急着做项目？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:测试数据11.zip |
-- 发布时间：2014/5/9 10:57:00
--
以下是引用有点甜在2014-5-9 10:10:00的发言：
我也知道很乱？ 我想问一下， 为什么这样查询。 不显示效果。？回复6楼，如下，你的项目不是一般的乱......
能按部就班把帮助文档看一次吗？先不要急着做项目？
| 下载信息 [文件大小：357.8 KB 下载次数：1] | |
| 点击浏览该文件:测试数据11.zip |
在窗口中不显示效果， 但是在表里是有显示的
Dim cpmc As WinForm.TextBox = e.Form.Controls("产品名称")
Dim lb As WinForm.ComboBox = e.Form.Controls("类别")
Dim pz As WinForm.ComboBox = e.Form.Controls("牌子")
Dim Filter As String
With e.Form.Controls("产品名称")
If .Value IsNot Nothing Then
Filter = "产品名称 like \'*" & cpmc.text & "*\'"
End If
End With
With e.Form.Controls("类别")
If .Value IsNot Nothing Then
Filter = "类别 =\'" & lb.text & "\'"
End If
End With
With e.Form.Controls("牌子")
If .Value IsNot Nothing Then
Filter = "牌子 =\'" & pz.text & "\'"
End If
End With
If Filter > "" Then
Tables("产品明细表").Filter = Filter
End If
[此贴子已经被作者于2014-5-9 12:03:34编辑过]
-- 发布时间：2014/5/9 13:04:00
--
最后一句，改成
If Filter > "" Then
e.Form.Controls("Table1").Table.Filter = Filter
End If
-- 发布时间：2014/5/9 13:33:00
--
以下是引用有点甜在2014-5-9 13:04:00的发言：
好了， 谢谢。 如果说我类别需要和产品名称结合一起查询？ 需要怎么改代码？
最后一句，改成
If Filter > "" Then
e.Form.Controls("Table1").Table.Filter = Filter
End If