标题：按条件批量新增行
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.zip |
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
当我把筛选条件设定为条件1=1时候，只选择条件1=1，条件2=空，条件3=空......，如何排除掉条件1=1、条件2=2的这组数据
此主题相关图片如下：1.png
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.zip |
此主题相关图片如下：2.png
此主题相关图片如下：1.png此主题相关图片如下：2.png