以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 动态设置表名 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137629) |
-- 作者:石四 -- 发布时间:2019/7/11 10:42:00 -- 动态设置表名 Dim y As Integer = Date.Today.Year Dim m As Integer = Date.Today.Month Dim dt1 As New Date(y, m, 1) Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天 Dim Filter As String Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" Tables("窗口1_Table1").Fill("Select * Fr om {订单} Where " & Filter, False) 能实现不?捣鼓了很久没成功,总是提示select语句不正确。 Dim bm As String = e.Form.Controls("ComboBox1").text "bm"如何装到{}里?
[此贴子已经被作者于2019/7/11 10:42:28编辑过]
|
-- 作者:有点蓝 -- 发布时间:2019/7/11 11:07:00 -- Tables("窗口1_Table1").Fill("Select * Fr om {" & bm & "} Where " & Filter, False) |
-- 作者:石四 -- 发布时间:2019/7/11 11:13:00 -- OK!Thanks |