主题：对比获值

DataColChanged事件代码

Select Case e.DataCol.name
    Case "项目","城市","车型","送货地址"
        If DataTables("价目表").DataCols.Contains("车型_" & e.DataRow("车型")) Then
            Dim drs As List(of DataRow) = DataTables("价目表").Select("项目 like '%" & e.DataRow("项目") & "%' and 城市 like '%" & e.DataRow("城市") & "%'")
            For Each dr As DataRow In drs
                If e.DataRow("送货地址") Like "*" & dr("地点") & "*" Then
                    msgbox(dr("车型_" & e.DataRow("车型")))
                    Exit For
                End If
            Next
        End If
End Select