老师，代码改后提示：“select语句执行错误，请检查语句和数据源设置”；我把所有代码发给你你给看看到底哪里写的不对。自从用acc数据源测试方案可行后，转了服务器数据源问题不断；就这几个代码，卡了一天了。
1、在窗体中建立了一个SQLQuery型的table,然后在窗体（“看板”）的afterload事件里用FILL的方法从sqlsever数据源（“zzkb”）视图取数据生成查询数据表（“table1”）
用按钮“bottom1”（下一页）进行执行循环翻页控制，另外用一个“textbox1”来显示这张查询表的当前页和总页数；然后用计时器来控制“bottom1”来循环显示，以下是我的代码：
2、afterload代码：
e.Form.TimerEnabled = True ‘启动计时器
Tables("看板_Table1").Fill ("Select [单线别],[订单编号],[产品型号],[数量] Fr om [KB_今日计划明细]","zzkb",True) ‘从数据库取数
With DataTables("看板_Table1")
.LoadFilter = "" '清除加载条件
.LoadPage = 0 '加载第一页
.LoadTop = 6 '每页6行
.Load()
e.Form.Controls("TextBox1").Value = "第" & 1 & "页/共" & .Totalpages ‘显示页数状态
End With
3、计时器代码：
Dim bn As WinForm.Button = e.Form.Controls("Button1")
If bn.Name = "" Then
bn.PerformClick()
Else
bn.PerformClick()
End If
4、“bottom1”下一页代码：
With DataTables("看板_Table1")
If .LoadPage < .TotalPages - 1
.LoadPage = .LoadPage + 1
Else
.LoadPage = 0
End If
.Load()
e.Form.Controls("TextBox1").Value = "第" & 1 & "页/共" & .Totalpages
End With
加好友 
发短信
Post By：2019/11/6 14:50:00 [只看该作者]
此主题相关图片如下：搜狗截图20191106162426.png
