Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dt As table = tables("报表_Table3")
If cm.value = "" then
MessageBox.Show("请选择帐号!","提示")
Return
end if
dim Filter as string = "收付日期 >= #" & Vars("起始日期") & "# and 收付日期 <= #" & Vars("结束日期") & "# and 收付帐号 = '" & cm.value & "'"
dt.Fill("Select 业务号,收付日期,收付,收付公司,摘要,币制,实际收付金额,收付帐号 From {销帐录入} where filter","myacc",true)
如上的FILTER设置后为何窗口中的Table崩溃,打了个在XX
[此贴子已经被作者于2009-9-11 14:33:08编辑过]