Private Function GetQryCDT() As String '获取界面条件
If Not IsNull(dtpEndDate.value) Then GetQryCDT = GetQryCDT & " and [FEndDate] <='" & dtpEndDate.value & "'" '日期型空间
If Trim(txtBarCode.Text) <> "" Then GetQryCDT = GetQryCDT & " and [FBarCode] like '%" & txtBarCode.Text & "%'" '文本控件
If chkState.Item(0).value = Unchecked Then GetQryCDT = GetQryCDT & " And FBillState<2" '多选项控件
End Function
vba筛选帮助实现
你直接筛选不能实现吗？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024