怎样拼接删选语句DCOUNT和DSUM都用得到

最新推荐文章于 2021-11-14 12:55:24 发布

低调的嚣张的程序员

最新推荐文章于 2021-11-14 12:55:24 发布

阅读量442

点赞数

分类专栏： 001 Access VBA

001 Access VBA 专栏收录该内容

50 篇文章

订阅专栏

本文介绍了一个使用VBA编写的筛选子程序，该程序能够根据输入的销售订单号、客户和商品信息对两个子窗体的数据进行过滤。通过构建动态SQL查询条件，实现了灵活高效的查询功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub cmd_Select_Click()
Dim strWhere1, strWhere2 As String
strWhere1 = ""
strWhere2 = ""
If Not IsNull(Me.销售订单号) Then
strWhere1 = strWhere1 & "销售订单号 like '*" & Me.销售订单号 & "*' and "
strWhere2 = strWhere2 & "销售订单号 like '*" & Me.销售订单号 & "*' and "
End If
If Not IsNull(Me.客户) Then strWhere1 = strWhere1 & "客户 like '*" & Me.客户 & "*' and "
If Not IsNull(Me.商品) Then strWhere2 = strWhere2 & "商品 like '*" & Me.商品 & "*' and "
If Len(strWhere1) > 0 Then strWhere1 = Left(strWhere1, Len(strWhere1) - 5)
If Len(strWhere2) > 0 Then strWhere2 = Left(strWhere2, Len(strWhere2) - 5)
Me.frmChild1.Form.Filter = strWhere1
Me.frmChild1.Form.FilterOn = True
Me.frmChild2.Form.Filter = strWhere2
Me.frmChild2.Form.FilterOn = True
End Sub