表关联的问题，求狐爸赐教！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

表关联的问题，求狐爸赐教！

如我发上来的案例，我有二个表，一个''客户总表''，一个''客户跟踪表''。我想要达到的目的是：

1、我在''客户跟踪表''里对我所有的客户进行管理

2、''客户跟踪表''里不论是现在还是已前的所有管理过的客户资料在''客户总表''里都有

3、我在''客户跟踪表''里，一但客户'签单'或'跑单'了我会删除这个客户资料，但''客户总表''里有我最后删除时的客户资料状态。

我想说的是，这二个表是关联的，''客户总表''是记录用的，''客户跟踪表''是操作用的。

求狐爸指点我应该怎么关联这二个表，代码怎么写、怎么设计？我研究了好几个星期了，一直搞不出来。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:市场客户管理学习.rar

我先顶下，跪求大神回复！

''客户跟踪表''里面的客户资料每天都更新，每天总有几个'签单'的或者'跑单'的客户，时间长了后我的这个''客户跟踪表''里的内容太多了不好管理，所以我想把'签单'的'跑单的'客户资料删掉方便管理。

但这些客户资料我又不能真的删掉，因为我每个月以及总年度还要为'设计师'和'市场部'做统计，统计每个人操作了几个客户，'签单'的几个、'跑单'的几个等等这些。

本来我只有''客户跟踪表''的，后来时间长了我想达到以上的要求时发现一个表很难达到要求，于是就想做二个表，就像是父表、子表一样，我一年当中不论遇到什么样的客户，也不论'签单'、'跑单'，我的''客户总表''里是有记录的，但我的''客户跟踪表''其实就是一个删除了'签单'、'跑单'客户资料的压缩版''客户总表''。

跪求大神回复！

非常感谢 LSY ，虽然没有按我的意思走，但貌似也达到目的了！先谢过，我在研究看能不能完全可用。

非常感谢您的指点，不过这个方法以前我试过，不行的，我重新整理下表格发上来，您看看，我一但“查询返回”或者按'签单'、'跑单'条件查询的话被隐藏的客户信息还在。

忘了发文件。跪发！！！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:市场客户管理学习.rar

您好，文件看到没？我在发下帮我看看，非常感谢！!!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:市场客户管理学习.rar

又不知道怎么写了，查询是可以的，但不能“查询返回了”

Dim sjsA As WinForm.ComboBox = e.Form.Controls("设计师A")

sjsA.ComboList = DataTables("跟踪表").GetComboListString("设计师")

Dim xqdzB As WinForm.ComboBox = e.Form.Controls("小区地址B")

xqdzB.ComboList = DataTables("跟踪表").GetComboListString("小区地址")

Dim dyyqC As WinForm.ComboBox = e.Form.Controls("当月预签C")

dyyqC.ComboList = DataTables("跟踪表").GetComboListString("当月预签")

Dim pmdjG As WinForm.ComboBox = e.Form.Controls("平面定金G")

pmdjG.ComboList = DataTables("跟踪表").GetComboListString("平面定金")

Dim czxE As WinForm.ComboBox = e.Form.Controls("操作性E")

czxE.ComboList = DataTables("跟踪表").GetComboListString("跟单状态").Replace("签单","").Replace("跑单","")

Dim scbH As WinForm.ComboBox = e.Form.Controls("市场部H")

scbH.ComboList = DataTables("跟踪表").GetComboListString("市场部")

Dim lmdjJ As WinForm.ComboBox = e.Form.Controls("立面定金J")

lmdjJ.ComboList = DataTables("跟踪表").GetComboListString("立面定金")

Dim yssjfK As WinForm.ComboBox = e.Form.Controls("预收设计费K")

yssjfK.ComboList = DataTables("跟踪表").GetComboListString("预收设计费")

e.Form.Controls("Table1").Table.Filter = "性质 <> '签单' And 性质 <> '跑单'"

Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")

rgd.Table = e.Form.Controls("Table1").Table '指定绑定表

rgd.Build()

大神指教！！！

这个是查询控件的代码！
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20140503124351.jpg

主题：表关联的问题，求狐爸赐教！