主题：[求助]

请问老师:表A的列一,列二,列三的数据怎样才能在表B的列三,列四,列五中直接引用而不用再重新输入呢?

我是一个初学者,烦请老师现再给指点一下,把上述的代码放在那儿呢?谢谢了

谢谢老师.这个问题解决了,但新的问题又来了,这组自动输入的代码单独使用是行的,但我原来在DataColCahangd事件中已有一组自动计算的代码.再放上去就出错.这二组代码是:一.自动输入代码

 

If e.DataCol.Name = "编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("客户订单").Find("编号 = " & "'" & e.DataRow("编号") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("长")= dr("长")
        e.DataRow("宽")= dr("宽")
       e.DataRow("高")= dr("高")

e.DataRow("订购数量")= dr("订购数量")

 

第二组是自动计算的代码:

 

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

    Case "长", "宽", "刀数"

         dr("长度")  = (dr("长") + dr("宽")) * dr("刀数") + 3.5

End Select

Select Case e.DataCol.Name

     Case  "宽", "高"

         dr("门幅") = (dr("高") + dr("宽")) +0.4

End Select

Select Case e.DataCol.Name

     Case  "宽"

         dr("左") = dr("宽") /2 +0.2

End Select

Select Case e.DataCol.Name

     Case  "高"

         dr("中") = dr("高")

End Select

Select Case e.DataCol.Name

     Case  "左"

         dr("右") = dr("左")

End Select

 

以上二组代码单独都能使用的.不知道能不能放在一起使用,谢谢老师指教.并要求得到帮助.

谢谢老师.