主题：[求助]筛选检查框选中的行，并输出

我建了一个查询窗口，有combox和checkbox，想筛选checkbox被选中的行，和combox中的筛选内容一起输出，这个代码需要怎么改。菜鸟求教！

Dim nms() As String ={"SP_Number","BZ_Name","StartDate","EndDate","SB_Sort1","SB_Sort2","SB_Sort3","SB_Name","SB_Number","WX_Mod"}
Dim sps() As String = {"'","'","#","#","'","'","'","'","'","'"}
Dim bjf() As String = {" = "," ="," >= "," <= "," = "," = "," = "," = "," =" ," = "}
Dim fds() As String ={"审批编号","泵站名称","填报日期","填报日期","设备分类_一类","设备分类_二类","设备分类_三类","设备名称","设备编号","维修方式"}
Dim Filter As String
Dim chk1 As WinForm.CheckBox = e.Form.controls("WX_Maintenance")
Dim chk2 As WinForm.CheckBox = e.form.controls("Finished")

For i As Integer = 0 To nms.length - 1
    If e.Form.controls(nms(i)).value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & fds(i) & bjf(i) & sps(i) & e.Form.controls(nms(i)).value & sps(i)
    End If
Next
With e.Form.Controls("WX_Maintenance")
If .value IsNot Nothing Then
    Filter = Filter & "保养 = '" & .Value & "'"
   End If
End With
With e.Form.Controls("Finished")
 If .value IsNot Nothing Then
        Filter = Filter & "已完成 = '" & .Value & "'"
    End If
End With
Tables("设备故障情况表").Filter = Filter

此主题相关图片如下：qq截图20171102112409.jpg

不会上传图片，只能上传个附件，望大师们见谅！

此主题相关图片如下：qq截图20171102113142.jpg

预览之后就出现这个

If e.Form.Controls("WX_Maintenance").checked = True
    If Filter >"" Then
        Filter = Filter & " And "
    End If
   
    Filter = Filter & "保养 = True"
End If

If e.Form.Controls("Finished").checked = True
    If Filter >"" Then
        Filter = Filter & " And "
    End If
   
    Filter = Filter & "已完成 = True"
End If
我改成了这样，不跳出运行错误对话框了，帮我看看有没有什么问题。

我还有一个问题，双击表，不能修改表里的内容，不知是我哪里设置了，可是我找不到！

此主题相关图片如下：qq截图20171102131159.jpg

谢谢甜大师，刚才那个问题，暂时解决，又来个新问题，需要帮助。双击表，没有办法修改表里的数据！

此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg


此主题相关图片如下：3.jpg

此主题相关图片如下：4.jpg

PrepareEdit 里面的编码改成了这个，顺便看看对不对。

如果表单上的“已完成”被勾选，那这一行都不能修改，除非是“开发者”。

这样也不行耶!

fi isnot nothing 后面可以再加个表达式，然后再用then？

表单里面直接打开窗口那句，有错！

表单中勾选已经完成的，可以显示对话框，可是未勾选的，设定打开修改的窗口，则显示错误！

 

此主题相关图片如下：1.jpg