以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]动态加载  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135802)

--  作者:2474842866
--  发布时间:2019/6/3 16:20:00
--  [求助]动态加载
希望可以实现控制加载的行数,但是程序总是报错,请问什么地方出错代码如下

Dim H As Integer = e.Form.Controls("cb1").text
Tables("录入资料_tb.cominfo").Fill("s*e*l*e*c*t    top   \'" & H & "\' from  ThrMon","ThrMon",True)
Tables("录入资料_tb.cominfo").ExtendLastCol = False

--  作者:有点甜
--  发布时间:2019/6/3 16:24:00
--  
Tables("录入资料_tb.cominfo").Fill("select top " & H & " * from ThrMon","ThrMon",True)