以下是引用狐哥在2009-9-11 12:00:00的发言:呵,不是这个问题,应是设置了变量的问题:filter.
我不设此变量则通过。
另请教一个问题:
Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dt As table = tables("报表_Table3")
If cm.value = "" then
MessageBox.Show("请选择帐号!","提示")
Return
end if
dt.Fill("Select 收付日期,收付,收付公司,摘要,币制,实际收付金额 From {销帐录入} where 收付日期 >= #" & Vars("起始日期") & "# and 收付日期 <= #" & Vars("结束日期") & "# and 收付帐号 = '" & cm.value & "'","myacc",true)
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "SELECT * From {办公开支}"
dim tb as datatable = cmd.ExecuteReader()
dim f As New Filler
f.SourceTable = tb
f.SourceCols = "日期,收支,类别,摘要,币种,金额"
f.DataTable = datatables("报表_Table3")
f.DataCols = "收付日期,收付,收付公司,摘要,币制,实际收付金额 "
f.Distinct = False
f.Filter = "[日期] >= #" & Vars("起始日期") & "# and [日期] <= #" & Vars("结束日期") & "# and 收支帐号 = '" & cm.value & "'"
f.Fill() '填充数据
SQLtable为什么填充不了呢,说找不到列。
f.DataCols = "收付日期,收付,收付公司,摘要,币制,实际收付金额
" 多了一个空格~