主题：表间参数引用

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

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

送货单录入窗口引用参数表部分内容

1、在窗口名称下拉框中引用参数表中的材料名称，单位自动显示。

2、在驾驶员下拉框中引用参数表中的驾驶员，车号、车长自动显示。

If e.DataCol.Name = "品名1" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("参数").Find("材料名称 = " & "'" & e.DataRow("品名1") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("单位1")= dr("单位")
       
    End If
End If
If e.DataCol.Name = "品名2" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("参数").Find("材料名称 = " & "'" & e.DataRow("品名2") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("单位2")= dr("单位")
       
    End If
End If
If e.DataCol.Name = "品名3" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("参数").Find("材料名称 = " & "'" & e.DataRow("品名3") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("单位3")= dr("单位")
       
    End If
End If
If e.DataCol.Name = "品名4" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("参数").Find("材料名称 = " & "'" & e.DataRow("品名4") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("单位4")= dr("单位")
       
    End If
End If
If e.DataCol.Name = "品名5" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("参数").Find("材料名称 = " & "'" & e.DataRow("品名5") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("单位5")= dr("单位")
       
    End If
End If
If e.DataCol.Name = "品名6" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("参数").Find("材料名称 = " & "'" & e.DataRow("品名6") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("单位6")= dr("单位")
       
    End If
End If
If e.DataCol.Name = "品名7" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("参数").Find("材料名称 = " & "'" & e.DataRow("品名7") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("单位7")= dr("单位")
       
    End If
End If
If e.DataCol.Name = "品名8" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("参数").Find("材料名称 = " & "'" & e.DataRow("品名8") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("单位8")= dr("单位")
       
    End If
End If

1、上面代玛是否能筒化

2、送货单录入窗口只有前四个下拉框有材料名称录入，后四个下拉框没有反映

烦请师傅帮忙

谢谢师傅的指点

因为我有一个送货单