For n As Integer = 0 To Tables("装配BOM表").count-1
If e.Form.Controls("CheckBox1").Checked = True
If Tables("装配BOM表").rows(n)("父级") Like e.Form.Controls("本级").Value Or Tables("装配BOM表").rows(n)("本级") = e.Form.Controls("本级").Value
Tables("装配BOM表").rows(n)("审核") = True
End If
Else
If Tables("装配BOM表").rows(n)("父级") = e.Form.Controls("本级").Value Or Tables("装配BOM表").rows(n)("本级") = e.Form.Controls("本级").Value
Tables("装配BOM表").rows(n)("审核") = True
End If
End If
Next
DataTables("装配BOM表").Save()'保存
请问红色部分,我想在筛选行时的这个逻辑: Filter = "父级 Like '" & .Value & "%'"
不知要怎样写才可以合格。