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

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