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

Dim Filter As String
With e.Form.Controls("DropBox1")
    If .Value IsNot Nothing Then
        Filter = "条件1 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("DropBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "条件2 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("DropBox3")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "条件3 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("DropBox4")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "条件4 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("DropBox5")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "条件5 = '" & .Value & "'"
    End If
End With

If Filter > "" Then
Tables("工艺库").Filter = Filter
End If

For Each dr As Row In Tables("工艺库")

If dr.IsNull("新增第一行工序内容") = False Then
Dim r1 As Row = Tables("表A").AddNew
r1("工序") = dr("新增第一行工序内容")
End If

If dr.IsNull("新增第二行工序内容") = False Then
Dim r2 As Row = Tables("表A").AddNew
r2("工序") = dr("新增第二行工序内容")
End If

If dr.IsNull("新增第三行工序内容") = False Then
Dim r3 As Row = Tables("表A").AddNew
r3("工序") = dr("新增第三行工序内容")
End If

If dr.IsNull("新增第四行工序内容") = False Then
Dim r4 As Row = Tables("表A").AddNew
r4("工序") = dr("新增第四行工序内容")
End If

If dr.IsNull("新增第五行工序内容") = False Then
     Dim r5 As Row = Tables("表A").AddNew
    r5("工序") = dr("新增第五行工序内容")
End If

Next

主题：按条件批量新增行