主题：求助关联代码修改

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

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

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

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

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

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

狐爸，好像少了一个功能就是商品名称上应该按了箭头标号会出现可以选择的现目如图

此主题相关图片如下：11.jpg

但出现只能是公司名称下的项目才可以选

狐爸，你帮我看看表中的问题，好像不行啊，越看越急，

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

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

先谢谢你了，但对还是的问一下，为什么我在订单的子表下下订单，商品名称无法用选择的，还有当编号选上去之后，颜色应该也可以，选完颜色后单位和单价应该自动跳出来，可狐爸好像没完成这几个功能，谢谢

谢谢     狐狸爸爸        blackzhu我会好好学习的