| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 系统工作状态动态提示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139124) |
| -- 作者：yifan3429 -- 发布时间：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 End If 上面代码会给操作者假死的感觉 希望增加一个动态态 显示进度比例 或者显示当前刚刚新增的类容 已经完成 收款人 的更新
[此贴子已经被作者于2019/8/6 13:13:27编辑过]
|
| -- 作者：yifan3429 -- 发布时间：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) 怎么和这个代码结成动态提示呢 |
| -- 作者：有点蓝 -- 发布时间：2019/8/6 14:09:00 -- 1楼只是赋值了一行的几列就导致假死？肯定是其它事件用法有问题、或者是连环触发了N个表的事件计算以及表达式计算。 2楼的问题没看懂
|
| -- 作者：yifan3429 -- 发布时间：2019/8/6 14:28:00 -- 不是假死 实在执行 几千行 但是没有动静的话 客户就会感觉是假死 |
| -- 作者：有点蓝 -- 发布时间：2019/8/6 14:37:00 -- 参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73365 |