用FILL加载的方法，数据条数可以控制吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用FILL加载的方法，数据条数可以控制吗？

共有2438人关注过本帖树形打印复制链接主题：用FILL加载的方法，数据条数可以控制吗？

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

用FILL加载的方法，数据条数可以控制吗？ 发帖心情

Post By：2018/11/1 17:05:00 [显示全部帖子]

我只想加载3条

Tables("窗口1_Table1").Fill("Select [客户],[数量],[单价] Flom {订单}",True)

可以在这条语句里面限制条数吗？

[此贴子已经被作者于2018/11/1 17:40:54编辑过]

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/11/1 19:03:00 [显示全部帖子]

恩恩，之前问过的一个问题，修改一下就不成了。

把历史记录显示在一个窗口的表里面

此主题相关图片如下：微信图片_20181101185721.png

错误提示：

错误所在事件：表A,CurrentChanged

详细错误信息：

未将对象引用设置到对象的实例。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/11/2 16:12:00 [显示全部帖子]

谢谢阿甜那么晚了还在工作，帮我们解答问题。

再问下，为了让界面美观，怎么设置那块背景色和行高？

此主题相关图片如下：微信图片_20181102160728.png

forms("历史记录").controls("table1").Table.grid.Cols("姓名").width = 100 ’这是设置列宽

forms("历史记录").controls("table1").Table.grid.Rows.Height = 60 ‘这是设置行高，但语法不正确

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/11/2 16:53:00 [显示全部帖子]

哦，行高是这样设置的，

forms("历史记录").controls("table1").Table.DefaultRowHeight = 24

最后剩背景了，怎么设置呢？

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/11/2 16:56:00 [显示全部帖子]

恩恩，刚刚查询到，谢谢您了哈，阿甜。

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/11/2 17:08:00 [显示全部帖子]

forms("历史记录").controls("table1").SysStyles("EmptyArea").BackColor = Color.White

错误提示：未找到类型“Table”的公共成员“SysStyles”。还有color.white 怎么设置成web色，比如是个颜色值#F0F0F0

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/11/2 17:44:00 [显示全部帖子]

可以了，我是加在窗口afterload事件中的，用这句： e.Form.Controls("Table1").Table.DataTable.SysStyles("EmptyArea").BackColor = e.Form.BackColor

谢谢！！！

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/11/5 16:33:00 [显示全部帖子]

CURRENTCHANGED事件里面有一句代码，改成这样了，

Forms("历史记录").controls("table1").Table.DataTable.Fill("Select top 4 [_Identify],[日期],[姓名],[事宜] FLom {表A} where " & f & " And IIF([日期] Is null, [日期] < #" & Date.Today.adddays(20) & "#, [日期] < #" & r("日期") & "#)) order by 日期 Desc","acc_test", True )

'当日期为空，就查找20天后之前的，否则就查找当前行日期之前的记录。之前是这样写的：

Forms("历史记录").controls("table1").Table.DataTable.Fill("Select top 4 [_Identify],[日期],[姓名],[事宜] Flom {表A} where " & f & "And [日期] < #" & r("日期") & "# order by 日期 Desc","acc_test", True )

当日期不为空时，才能找到记录，当日期为空时，就找不到记录了。所以想改成上面的代码，但出现下面错误

当在操作表A时，提示：

SELECT语句执行错误，请检查语法及数据源设置

错误所在事件：表A,CurrentChanged

详细错误信息：

未设置对象变量或 With 块变量。

[此贴子已经被作者于2018/11/5 16:37:10编辑过]

cyrollin

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

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/11/5 18:34:00 [显示全部帖子]

哦，受到您的启发，我是这样改的，就可以了

If r.Isnull("日期")

Forms("历史记录").controls("table1").Table.DataTable.Fill("Select top 4 [_Identify],[日期],[姓名],[事宜] FLom {表A} where " & f & "And [日期] < #" & Date.Today.adddays(20) & "# order by 日期 Desc","acc_test", True )

End If

谢谢

下一主题 >> << 上一主题

主题：用FILL加载的方法，数据条数可以控制吗？