Andre
2020-02-01 20:17
您=在两条代码行中缺少该标志。
你在这里：
strBur = "Bureau='" & Me.cboBur.Value & "'"
^
但这里缺少它，从而产生语法错误：
strAT = "Categories '" & Me.cboCategories.Value & "'"
^
strFT = "[Funding Type] '" & Me.cboFunding.Value & "'"
^
另外，您的逻辑太复杂了。您可以If为每个组合框创建一个过滤器字符串：
Dim sFilter As String
sFilter = ""
If cboBur <> "All Bureaus" Then
sFilter = StrAppend(sFilter, strBur, " AND ")
End If
If cboCategories <> "All Categories" Then
sFilter = StrAppend(sFilter, strAT, " AND ")
End If
' etc.
If sFilter <> "" Then
Form_sfrmSpending.Filter = sFilter
Form_sfrmSpending.FilterOn = True
End If
仅在两个字符串都不为空的情况下，才使用包含分隔符的此帮助器函数：
Public Function StrAppend(sBase As String, sAppend As Variant, sSeparator As String) As String
If Len(sAppend) > 0 Then
If sBase = "" Then
StrAppend = Nz(sAppend, "")
Else
StrAppend = sBase & sSeparator & Nz(sAppend, "")
End If
Else
StrAppend = sBase
End If
End Function
热门帖子
相关问题
热门github
1
2
3
5
6
7
8
11
13
14
15
Mamba is a new state space model architecture showing promising performance on information-dense data such as language modeling, where previous subquadratic models fall short of Transformers. It is based on the line of progress on structured state space models, with an efficient hardware-aware design and implementation in the spirit of FlashAttention.
(翻译：Mamba 是一种新的状态空间模型架构，在信息密集型数据（例如语言建模）上显示出良好的性能，而之前的二次模型在 Transformers 方面存在不足。它基于结构化状态空间模型的进展，并本着FlashAttention的精神进行高效的硬件感知设计和实现。)