主题：跨表导数据(以解决)

一张空表，该如何引用另外一张表的内容。

例如一张订单表，如果他的类型为“自产”，那么计划表不将导用其表的"订单名称”“订单数量”（计划表中没有类型这列）

代码该如何写

DataColChanged事件代码设置为：

 

Select Case e.DataCol.name
    Case "工厂","工段","日期"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("工厂") = False AndAlso dr.IsNull("工段") = False AndAlso dr.IsNull("日期") =False Then
            Dim pr As DataRow = DataTables("工资标准").Find("分厂 = '" & dr("工厂") & "' and 工段  = '" & dr("工段") & "' And 执行日期 <= #" & dr("日期") & "#", "执行日期 Desc")
            If pr IsNot Nothing Then
                dr("工资标准")  = pr("工资标准")    
            End If
        End If
End Select

 

参考

例如一张订单表，如果他的类型为“自产”，那么计划表不将导用其表的"订单名称”“订单数量”（计划表中没有类型这列） 代码该如何写 什么意思? 某一列名称为类型列,值如果为"自产" 则 计划表隐藏 "订单名称”“订单数量”两个列?

那不是更简单吗，都不用FIND了，直接赋值就好了

订单表的‘订单分解’类型为“自产”

此主题相关图片如下：未命名.jpg

那么计划表的将自动导入订单表的“订单编号”“品名”“品名规格”

此主题相关图片如下：未命名1.jpg

Dim Val As String = e.Table.Current("订单分解")
        Select Case Val
            Case "自产"
Dim dr As DataRow = e.DataRow
 If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("XX")= dr("品名")
        e.DataRow("xx")= dr("型号")
        e.DataRow("xx")= dr("规格")
    End If
 End select