主题：跨表引用的问题

 Select Case e.DataCol.Name 
    Case "材料名称","子类","型号规格","颜色","供应商","kycc"
        Dim Filter As String = "[物料编号] = '" & e.DataRow("物料编号") & "'"
        DataTables("BOM明细").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)
End Select