主题：[求助]表达式包含无效字符串常量’

Dim lz As WinForm.CheckBox = forms("导入预算明细").Controls("零值")

If lz.Checked = False Then
    Tables("导入预算明细_预算明细").Filter = "打款户名 = '" & Tables("付款订单").Current("打款户名") & "'"
Else
    Tables("导入预算明细_预算明细").Filter = "打款户名 = '" & Tables("付款订单").Current("打款户名") & "' and 未付金额<> 0 "
End If

For Each r As Row In Tables("导入预算明细_预算明细").Rows
    r.Checked  = True
Next