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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 系统工作状态动态提示

共有1738人关注过本帖树形打印复制链接主题：系统工作状态动态提示

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

系统工作状态动态提示 发帖心情

Post By：2019/8/6 12:33:00 [只看该作者]

If e.DataCol.Name = "收款人" AndAlso e.NewValue <> Nothing Then

'Forms("更新提示").Show

Dim fdr As DataRow = DataTables("供应商资料表").Find("收款人 = '" & e.NewValue & "'")

If fdr Is Nothing Then

fdr = DataTables("供应商资料表").AddNew

fdr("收款人") = e.DataRow("收款人")

fdr("公司名称") = e.DataRow("公司名称")

fdr("主材部门") = e.DataRow("公司名称")

fdr("支付类型") = e.DataRow("支付类型")

End If

上面代码会给操作者假死的感觉希望增加一个动态态显示进度比例或者显示当前刚刚新增的类容已经完成收款人的更新

[此贴子已经被作者于2019/8/6 13:13:27编辑过]

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2019/8/6 13:10:00 [只看该作者]

forms("窗口2").open
Application.Doevents
dim j as double
for i as double =1 to 1000000000
j=j+i
next
forms("窗口2").close

标签显示动态内容为

Dim dt As Table = Tables(e.DataTable.Name)

dt.ShowToolTip("添加成功",dt.Current,dt.Cols(0),1000)

怎么和这个代码结成动态提示呢

有点蓝

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

加好友

发短信

等级：超级版主帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/6 14:09:00 [只看该作者]

1楼只是赋值了一行的几列就导致假死？肯定是其它事件用法有问题、或者是连环触发了N个表的事件计算以及表达式计算。

2楼的问题没看懂

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2019/8/6 14:28:00 [只看该作者]

不是假死实在执行几千行但是没有动静的话客户就会感觉是假死

有点蓝

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

加好友

发短信

等级：超级版主帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/6 14:37:00 [只看该作者]

参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73365

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

主题：系统工作状态动态提示