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了.

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

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

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

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