以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]加工表加工单价随产品表修改而改动代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55821)

--  作者:ZHX88863808
--  发布时间:2014/8/23 20:42:00
--  [求助]加工表加工单价随产品表修改而改动代码

我有一产品表和一加工表,表中都有产品名称列、工序1单价、工序2单价和工序3单价,每件产品都有三道加工程序,每道工序的加工单价都不一样,分别为工序1单价、工序2单价、工序3单价,如果产品表中的三个工序的单价有所调整,则加工表中后录入的三个工序单价也随之变化,但修改之前加工表录入的三个工序价格保持不变,请求各位老师们能帮助写个代码,谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:修改单价.table


--  作者:ZHX88863808
--  发布时间:2014/8/23 21:17:00
--  

高手们是不是都休息了吗?

 


--  作者:y2287958
--  发布时间:2014/8/23 21:24:00
--  
http://www.foxtable.com/help/topics/1453.htm
--  作者:ZHX88863808
--  发布时间:2014/8/23 21:28:00
--  

帮助里只有一个单价的修改,但我在这方面没有任何基础,多了两个单价,代码就不知怎么写了,请帮忙写一个,谢谢!


--  作者:有点甜
--  发布时间:2014/8/24 14:24:00
--  

 如下

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:修改单价.rar


--  作者:ZHX88863808
--  发布时间:2014/8/24 20:16:00
--  

有点甜老师,您可能发错了,我打开一看没有代码,麻烦你重新发一个给我,谢谢!!!


--  作者:有点甜
--  发布时间:2014/8/24 20:18:00
--  

木有发错,就是这个,代码写在 加工表 DataRowChanged


--  作者:ZHX88863808
--  发布时间:2014/8/24 20:57:00
--  

有点甜老师,您可能发给我的是商业版本或者是其他版本,而我用的试用版,我下载后,连项目都看不见,还望重新给我发一个,谢谢!!!


--  作者:有点甜
--  发布时间:2014/8/24 21:14:00
--  
以下是引用ZHX88863808在2014-8-24 20:57:00的发言:

有点甜老师,您可能发给我的是商业版本或者是其他版本,而我用的试用版,我下载后,连项目都看不见,还望重新给我发一个,谢谢!!!

 

1、你升级到最新版foxtable;

 

2、你下载的是zip压缩包,你需要解压一下,才能看到例子。我手机上网,就不重发了,代码如下

 

Select Case e.DataCol.Name
    Case "产品名称"
        Dim fdr As DataRow = DataTables("产品表").Find("产品名称 = \'" & e.DataRow("产品名称") & "\'")

        If fdr IsNot Nothing Then
            e.DataRow("工序1单价") = fdr("工序1单价")
            e.DataRow("工序2单价") = fdr("工序2单价")
            e.DataRow("工序3单价") = fdr("工序3单价")
        Else
            e.DataRow("工序1单价") = Nothing
            e.DataRow("工序2单价") = Nothing
            e.DataRow("工序3单价") = Nothing
        End If
End Select


--  作者:ZHX88863808
--  发布时间:2014/8/24 21:22:00
--  

谢谢有点甜老师,电脑知识太差,以后要好好多学习,谢谢!!!