With e.Form.Controls("SO")
If e.Form.Controls("SO").Checked = True
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "米数 = 0"
End If
End With
With e.Form.Controls("my")
If e.Form.Controls("my").Checked = True
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "米数 > 0 and 米数 < 100"
End If
End With
With e.Form.Controls("dh")
If e.Form.Controls("dh").Checked = True
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "米数 >= 100 "
End If
End With
此主题相关图片如下:屏幕截图 2021-03-11 102259.png
