主题：关于数据排列组合填充问题

排除条件如下：

  有以下3种条件，如何删掉这三种条件的数据行

             平面分格代号       立面分格代号          平面分格尺寸                立面分格尺寸

     列名     平面分格1          立面分格1            平面分格2                   立面分格2

第1种条件    代号(数量)=1        代号(数量)>2                                    分格尺寸（最大值）

第2种条件    代号(数量)>2        代号(数量)=1        分格尺寸（最大值）

第3种条件    代号(数量) >2        代号(数量)>2       分格尺寸（最大值）           分格尺寸（最大值）

我写的代码如下，红色字体为删掉这三种条件的数据行的代码 ，请老师看看如何修改一下啊代码  谢谢老师

Dim dr As DataRow

Dim pfs() As String = {"宽度第1分格1", "宽度第2分格1", "宽度第3分格1"}

Dim lfs() As String = {"高度第一分格1", "高度第二分格1", "高度第三分格1", "高度第四分格1"}

For Each drc As DataRow In DataTables("门窗信息").select("[门窗代号] is not null")

            dr = DataTables("门窗玻璃").find("[区域划分] ='" & drc("区域划分") & "' AND  [楼栋代号] ='" & drc("楼栋代号") & "' AND  [门窗代号] ='" & drc("门窗代号") & "'")

            If dr Is Nothing Then

                For i1 As Integer = 0 To pfs.count - 1

                    For i2 As Integer = 0 To lfs.count - 1

                        Dim r As Row = Tables("门窗玻璃").addnew

                        r("门窗代号") = drc("门窗代号")

                        r("区域划分") = drc("区域划分")

                        r("楼栋代号") = drc("楼栋代号")

                        r("门窗数量") = drc("门窗数量")

                        r("宽度分格1") = drc (pfs(i1))

                        r("高度分格1") = drc (lfs(i2))

                        Dim s1 As String = pfs(i1).TrimEnd("1")

                        r("宽度分格2") = drc(s1 & "2")

                        r("宽度分格3") = drc(s1 & "3")

                        r("宽度分格4") = drc(s1 & "4")

                        r("宽度分格5") = drc(s1 & "5")

                        r("宽度分格6") = drc(s1 & "6")

                        r("宽度分格7") = drc(s1 & "7")

                        r("宽度分格8") = drc(s1 & "8")

                        r("宽度分格9") = drc(s1 & "9")

                        r("宽度分格A") = drc(s1 & "A")

                        r("宽度分格B") = drc(s1 & "B")

                        Dim s2 As String = lfs(i2).TrimEnd("1")

                        r("高度分格2") = drc(s2 & "2")

                        r("高度分格3") = drc(s2 & "3")

                        r("高度分格4") = drc(s2 & "4")

                        r("高度分格5") = drc(s2 & "5")

                        r("高度分格6") = drc(s2 & "6")

                        r("高度分格7") = drc(s2 & "7")

                        r("高度分格8") = drc(s2 & "8")

                        r("高度分格9") = drc(s2 & "9")

                        r("高度分格A") = drc(s2 & "A")

                        r("高度分格B") = drc(s2 & "B")

                    Next

                Next

            End If

'        Next

'    Next

Next

DataTables("门窗玻璃").DeleteFor("[宽度分格1] is null or  [高度分格1] is null")

''定义去除窗户玻璃多余的分格组合功能性代码

'Dim int1 As Integer = DataTables("门窗玻璃").Compute("Count([宽度分格1])", "[区域划分] = '" & dr("区域划分") & "' and   [楼栋代号] ='" & dr("楼栋代号") & "' AND  [门窗代号] ='" & dr("门窗代号") & "'")

'Dim int2 As Integer = DataTables("门窗玻璃").Compute("Count([高度分格1])", "[区域划分] = '" & dr("区域划分") & "' and   [楼栋代号] ='" & dr("楼栋代号") & "' AND  [门窗代号] ='" & dr("门窗代号") & "'")

'Dim max1 As Integer = DataTables("门窗玻璃").Compute("max([宽度分格2])", "[区域划分] = '" & dr("区域划分") & "' and   [楼栋代号] ='" & dr("楼栋代号") & "' AND  [门窗代号] ='" & dr("门窗代号") & "'")

'Dim max2 As Integer = DataTables("门窗玻璃").Compute("max([高度分格2])", "[区域划分] = '" & dr("区域划分") & "' and   [楼栋代号] ='" & dr("楼栋代号") & "' AND  [门窗代号] ='" & dr("门窗代号") & "'")

'Dim dr1 As DataRow

'Dim dr2 As DataRow

'Dim dr3 As DataRow

'MessageBox.Show(1)

'dr1 = DataTables("门窗玻璃").find("[宽度分格1]=1,and   [高度分格1]>2, and [高度分格2]=max2")

'MessageBox.Show(2)

'If dr1 Is Nothing Then

'    dr1.Delete()

'End If

'MessageBox.Show(3)

'dr2 = DataTables("门窗玻璃").find("int1>2,and int2=1, and [宽度分格2]=max1")

'If dr2 Is Nothing Then

'    dr2.Delete()

'End If

'dr3 = DataTables("门窗玻璃").find("int1>2,and int2>2, and [宽度分格2]=max1 and 高度分格2]=max2")

'If dr3 Is Nothing Then

'    dr3.Delete()

'End If