Select Case xsfs
Case xsfs=e.Form.Controls("mxxsRadioButton").Checked
Filter = Filter & "记账日期 >= #" & StartDate & "# And [记账日期] <= #" & EndDate & "#"
If Filter > "" Then
Filter = Filter & " And "
End If
With e.Form.Controls("zhmcComboBox")
If .Value IsNot Nothing AndAlso.value<>"所有账户" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "所属账户原始值= '" & .Value & "'"
End If
End With
With e.Form.Controls("zmlxComboBox")
If .Value IsNot Nothing AndAlso.value<>"所有账目" Then
If Filter > "" Then
Filter = Filter & " And "
End If
If .value="支出账目" Then
Filter = Filter & "交易类型 = '支出 '"
ElseIf .value="收入账目"
Filter = Filter & "交易类型 = '收入'"
End If
End If
End With
Tables("按账户查账窗体_azhcxTable").GrandTotal = False
Tables("按账户查账窗体_azhcxTable").DataSource = DataTables("收支交易流水")
Tables("按账户查账窗体_azhcxTable").SetColVisibleWidth("单号|150|记账日期|100|所属账户原始值|150|交易类型|100|收入金额|90|收入金额|90|收支分类原始值|150|经手人原始值|90|备注|200")
Tables("按账户查账窗体_azhcxTable").Filter = Filter
End Select
加上了还是出错
加好友 
发短信
Post By：2020/3/24 11:43:00 [只看该作者]
此主题相关图片如下：截图07.jpg
