有关窗体闪烁问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有关窗体闪烁问题

共有10962人关注过本帖树形打印复制链接主题：有关窗体闪烁问题

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/11/30 11:19:00 [显示全部帖子]

forms("车辆回车确认").stopRedraw

Tables("车辆回车确认_Table1").StopREdraw
Dim ss As String = "select * from {车辆配送表} where [状态] = '出车完成'"
Tables("车辆回车确认_Table1").fill(ss,"baox",False)
Tables("车辆回车确认_Table1").Sort = "车牌号,出车时间"
Dim str1 As String = "运输单号,90|运输类型,60|状态,60|车牌号,70|司机姓名,60|计划单号,80|待运单号,80|出车时间,80|回车时间,80|出发地址,100|目的地址,100|收货单位,70|实际运量,70|实际件数,70|车型,60|发货通知号,70|货物名称,60|路桥费,60|公里数,60"
Functions.Execute("显示列",Tables("车辆回车确认_Table1"),str1)

Tables("车辆回车确认_Table1").ResumeRedraw
forms("车辆回车确认").ResumeRedraw

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/11/30 11:30:00 [显示全部帖子]

收到，我有空抽查一下。

另外看看是不是你的显示列这个自定义函数的代码有问题。

也可以尝试换换代码位置：

forms("车辆回车确认").stopRedraw

Tables("车辆回车确认_Table1").StopREdraw
Dim ss As String = "select * from {车辆配送表} where [状态] = '出车完成'"
Tables("车辆回车确认_Table1").fill(ss,"baox",False)
Dim str1 As String = "运输单号,90|运输类型,60|状态,60|车牌号,70|司机姓名,60|计划单号,80|待运单号,80|出车时间,80|回车时间,80|出发地址,100|目的地址,100|收货单位,70|实际运量,70|实际件数,70|车型,60|发货通知号,70|货物名称,60|路桥费,60|公里数,60"
Functions.Execute("显示列",Tables("车辆回车确认_Table1"),str1)

Tables("车辆回车确认_Table1").Sort = "车牌号,出车时间"

Tables("车辆回车确认_Table1").ResumeRedraw
forms("车辆回车确认").ResumeRedraw

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/11/30 15:10:00 [显示全部帖子]

是Sort导致ResumeRedraw无效？

我检查看看。

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

主题：有关窗体闪烁问题