主题：求助关联代码修改

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