多列判断 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "产品类型","产品名称","规格"
        ' If e.NewValue IsNot Nothing Then
        If dr.IsNull("产品类型") OrElse dr.IsNull("产品名称") Then
            dr("级别") = Nothing
        Else
            If dr.IsNull("规格") = False Then
                dr("级别") = "明细"
            Else
                Dim count = e.DataTable.compute("count(产品名称)", "产品名称 = '" & dr("产品名称") & "' And 产品类型 = '" & dr("产品类型") & "' And 规格 Is Null")
                If count >= 1 Then
                    dr("级别") = "大类"
                Else
                    dr("级别") = "小类"
                End If
            End If
        End If
End Select

主题：多列判断