下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生产管理.rar

关于参数单价的引用：

1、参数表引用产品名称、产品规格、处理方式、报价

2、出口处理表中因不同的处理方式、品种、规格不一样，单价也不一样

因此在从单价1到单价8的列中，根据处理方式、品种1至品种8、规格1至规格8，选用参数表中同产品名称、同规格、同处理方式，自动在单价列中显示单价。

请师傅帮助写代码，在此表示衷心的感谢。

呵呵，你这几天都在折腾同样的问题啊。

我下午比较忙，你先看看帮助和我之前写给你的代码，尝试自己写一下。

实在搞不定的话，我明天帮你设置一下。

不能总在同样的地方摔跤，最好还是抽时间系统看看帮助，特别是编程基础和FoxTable编程这两章，掌握一下基本的概念，这样看到别人的代码的时候，就能举一反三，不会总被同一个问题卡住。

楼主： 3楼说得没错，简单套用一下老大给过你的代码就可以了，如果你还感觉不行，建议你先学习帮助文件，仔细领会老大代码的含义。无非就是：怎样找到符合条件的数据，找到后放到哪去，就这么简单。

另外：你的送货单 和 出口处理两个表，实际上都是‘结果类型’的统计表，应该重新设计各表的结构，比如：将 出口处理 表分解为：

1、出口处理（前12行）

2、出口明细（即：品种、规格、材料、数量）

3、出口运输 （即：驾驶员、车长、车号、。。。。）

把上述三个表关联起来，处理起来更直观。

谢谢师傅的指点，

1、送货单是已外送材料为主的，只需打印出单，签字回复。

2、出口处理表是以处理成品为主的，出单商检部门，比较复杂一点，此表，既要根据装载数量分摊该货车运费，又要根据不同品种、处理方式、规格、数量结算处理费用，最终又要在每时间段内向不同的用户收取代处理运输费用和处理费用。

师傅你好！

我用此代码没有显示，不知是什么地方出现了问题。

Dim dr1 As DataRow = e.DataRow（这一行我没有写，上面有同样的）
Select Case e.DataCol.Name
    Case "处理方式","规格1","品种1"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "产品名称 = \'" & dr1("品种1") & "\' And 产品规格 = \'" & dr1("规格1") & "\' And 处理方式 = " & dr1("处理方式") & "\' "
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("报价") = dr2("单价1")
        End If
End Select

还是请师傅哦，最好是单价1-8能够合并写

fls = "产品名称 = \'" & dr1("品种1") & "\' And 产品规格 = \'" & dr1("规格1") & "\' And 处理方式 = \'" & dr1("处理方式") & "\' "

 dr1("单价1") = dr2("报价")

出口处理表分几张表是可以的，只要能在出口处理窗口上自动反映偏于打印就行。

实际上此表到目前为此，只差三步：

1、不同产品处理的单价。

2、同一天同一车装载产品的运费按不同部门的量分摊。

3、在开始和结束时间内对各部门的运费和处理费用进行统计。