以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  动态设置表名  (http://www.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