主题：求助关联代码修改

If e.DataCol.Name = "商品名称" Then
    Dim dr As DataRow
    dr = DataTables("报价明细").Find("商品名称 = '" & e.DataRow("商品名称") & "'")
    If dr IsNot Nothing Then
        e.DataRow("编号") = dr("编号")
    End If
End If

If e.DataCol.Name = "商品名称" Orelse e.DataCol.Name = "编号" Then
    Dim dr As DataRow
    dr = DataTables("报价明细").Find("商品名称 = '" & e.DataRow("商品名称") & "' And 编号 = '" & e.DataRow("编号") & "'")
    If dr IsNot Nothing Then
        e.DataRow("颜色") = dr("颜色")
    End If
End If

If e.DataCol.Name = "商品名称" Orelse e.DataCol.Name = "编号" Then
    Dim dr As DataRow
    dr = DataTables("报价明细").Find("商品名称 = '" & e.DataRow("商品名称") & "' And 编号 = '" & e.DataRow("编号") & "'")
    If dr IsNot Nothing Then
        e.DataRow("颜色") = dr("颜色")
    End If
End If

If e.DataCol.Name = "商品名称" Orelse e.DataCol.Name = "编号"  Orelse e.DataCol.Name = "颜色" Then
    Dim dr As DataRow
    dr = DataTables("报价明细").Find("商品名称 = '" & e.DataRow("商品名称") & "' And 编号 = '" & e.DataRow("编号") & "' And 颜色 = '" & e.DataRow("颜色") & "'")
    If dr IsNot Nothing Then
        e.DataRow("单价") = dr("单价")
    End If
End If

 

此代码，是为能更方便先报价后下单的做用，可就是无法使用，请帮忙修改，

我是意思是先在“报价明细”中进行报价，报完价后，就是“订单明细”中下单，如选商品名称选“吊钟”应该只有吊钟的编号选才对，可现在连商品名称都无法选，请帮忙修改，无比感谢

 

 

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

点击浏览该文件:管理项目10.table

如果选好了，“编号 颜色 单位”这三个，单价应该自动跳出来，可这个代码有点不对，狐爸帮帮忙

If e.DataCol.Name = "商品名称" Orelse e.DataCol.Name = "编号"  Orelse e.DataCol.Name = "颜色" Then
    Dim dr As DataRow
    dr = DataTables("报价明细").Find("商品名称 = '" & e.DataRow("商品名称") & "' And 编号 = '" & e.DataRow("编号") & "' And 颜色 = '" & e.DataRow("颜色") & "'")
    If dr IsNot Nothing Then
        e.DataRow("单价") = dr("报价")
    End If
End If

 

DataColChanged

某一列的内容被更改后执行，此时列的内容已经是更改后的值

 

 

你的代码第一,位置放错了,第二,有最后一段代码就OK了.

做服装工厂的?还是外贸做服装的.

我是服装工厂的，位置改过来还是不是行，请帮我按表做一下吧，谢谢

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

点击浏览该文件:管理项目10.table

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

点击浏览该文件:管理项目10.table

一样一样的,我也是做服装的.

那有什么好的作品，让我参考一下了，你在那里了

我只做工厂跟单,所以做得东西是根据我服装工厂用的东西.

 

 

        几个部分:   生产通知单   裁剪数    装箱单    辅料订购    纸箱订购   出货    关于报价和结账一类我是没有弄.因为不是我管的范围.

 

      我无锡的,你那儿的?你要做到什么样子倒是我们可以讨论着做的.