请老师看看这段代码为什么还会闪动 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：请老师看看这段代码为什么还会闪动