动态设置表名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态设置表名

共有3232人关注过本帖树形打印复制链接主题：动态设置表名

石四

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

动态设置表名 发帖心情

Post By：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编辑过]