- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请老师看看这段代码为什么还会闪动 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171175)
-- 发布时间：2021/8/20 15:34:00
-- 请老师看看这段代码为什么还会闪动
Dim tb As Table =Tables("选择工资项目_table2")
tb.StopRedraw
tb.Filter="名称<>\'\' And 类型一=" & tb.Current("类型一") & " and 选中=true and 年= " & DataTables("one").Datarows(0)("发放表年") & " and 月=" & DataTables("one").Datarows(0)("发放表月")
If tb.Sort="类型,序号排序" Then
Else
MessageBox.show("在按工资类别排序的情况下才有移动行的必要, 当前表为非类型排序")
tb.ResumeRedraw
Return
End If
If tb.Position = 0 Then
tb.ResumeRedraw
Return
End If
If tb.Current("类型") <> tb.rows(tb.Position-1)("类型") Then
tb.ResumeRedraw
Return
End If
Vars("临时文本")=tb.Current("列号")
tb.Current("序号排序")=tb.Current("序号排序")-1.5
tb.rows(tb.Position+1)("序号排序")=tb.rows(tb.Position+1)("序号排序")+1
tb.Current("序号排序")=tb.Current("序号排序")+0.5
tb.Sort="类型,序号排序"
Dim r As Integer = tb.Find(Vars("临时文本"), 0, "列号", False, True, False)
tb.Position = r \'则选择该行
DataTables("工资项目顺序").Save
tb.ResumeRedraw
-- 发布时间：2021/8/20 15:38:00
--
怎么样的闪动？数据发生变化，刷新肯定会有反应的
-- 发布时间：2021/8/20 15:46:00
--
表数据会闪动。能不闪吗
-- 发布时间：2021/8/20 15:51:00
--
请上传实例测试
-- 发布时间：2021/8/20 16:07:00
--
此主题相关图片如下：qq截图20210820160517.png
此主题相关图片如下：qq截图20210820160537.png
[此贴子已经被作者于2021/8/20 16:17:32编辑过]