- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动更新对应公司货号、报价记录 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31056)
-- 发布时间：2013/4/9 14:47:00
-- 自动更新对应公司货号、报价记录
各位老师，
请教一下如何实现下列功能（已经根据“客户货号”作了关联):
（1）报价表的"公司货号"列自动从“货号”表生成
（2）点击货号表任意一行，能自动生成该公司货号对应的所有报价(注意不是客户货号对应)，并按报价日期从大到小排序
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2013/4/9 15:03:00
--
1.首先把报价表的公司货号字段类型改为字符型；
2.第一个问题，在报价表的表属性datacolchanged中设置代码：
If e.DataCol.name = "客户货号" Then
Dim dr As DataRow = DataTables("货号").find("客户货号 = \'"& e.DataRow("客户货号") &"\'")
If dr IsNot Nothing Then
e.DataRow("公司货号") = dr("公司货号")
End If
Next
3.第二个问题，抱歉，不是很理解。
-- 发布时间：2013/4/9 15:10:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2013/4/9 15:18:00
--
试了一下，还是没有自动更新，代码出错了
对于第二个问题，以选中货号表第一行为例，要在关联出来的表中实现下面的效果：
| 公司货号 | 客户货号 | 报价 | 报价日期 |
| A1 | D1 | 0.1 | 2013/1/6 |
| A1 | C1 | 0.1 | 2013/1/1 |
-- 发布时间：2013/4/9 15:32:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |
排序弄好了..没有报错啊.
-- 发布时间：2013/4/9 15:32:00
--
此主题相关图片如下：qq截图20130409153200.png
-- 发布时间：2013/4/9 16:48:00
--
谢谢！
还有对于第1个问题：假如没有找到对应点，能不能自动删除原有的数据?
-- 发布时间：2013/4/9 16:53:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.foxdb |
自动删除没对应数据的行