主题：筛选报警

Dim Filter As String
With forms("资金分配操作窗口").Controls("ComboBox1")
    If .text <> Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "绑定号 = '" & .Value & "'"   '此处内容自行修改
    End If
End With

Tables("回款勾选窗口_Table1").Filter = iif(Filter>"", filter & " And ", "") & "收款信息_付款否=false"
Tables("回款勾选窗口_Table1").ExtendLastCol = True '功能是填表列与窗口后面的间歇

写一下dataformat事件即可

if e.value = nothing Then

    e.text = nothing

Else

    e.Text = format(e.value, "yyyy年MM月dd日")

end If