打开窗口时执行了一个函数统计目录树中的每个节点的可处理记录数,每点击一下节点目录树就会闪烁一次,反复查找就是下面这段代码导致的(注释掉就不闪)
Dim dr,dr2,dr4,dr8 As DataRow
dr2 = DataTables("TabFid").Find("wn = '" & winName & "' and winlb = 'flow'") '仅流程表单才起作用
If dr2 IsNot Nothing Then
Dim tr1 As WinForm.TreeView = Forms("导航").Controls("Tr_All")
Dim nd As winform.treenode
Dim cmd As New SQLCommand
cmd.ConnectionName = Mydata
Dim dt As DataTable
Dim nm As Integer
Dim flt As String
msgbox(1)
tr1.StopRedraw()
Dim fids As String '定义一个流程编号集合
For Each nd In tr1.AllNodes
If nd.Name = winName Then '只遍历当前主表所在节点
Dim drs8 As List(of DataRow)
drs8 = DataTables("ftbSet").Se lect("tbN = '" & Mtb & "' and (sqRole Like " & Role_All & ")","Fid")
If drs8.Count > 0 Then
'---先集合用户有权处理的流程
For Each dr8 In drs8
fids = fids & "," & dr8("Fid")
Next
fids = fids.trim(",")
If fids > "" Then
'---计算{事务提醒}中用户有权处理的待处理记录数()----------------------
flt = "单据名称 = '" & Mtb & "' And sys_Fbh In (" & fids & ") And ((sys_Fbh = 1 And (接收人 Like " & Role_swtx & " or 接收人 Like '%自动导入%')) or (sys_Fbh > 1 and (接收人 Like " & Role_swtx & ")))"
cmd.CommandText ="Se lect count(*) From 事务提醒 where " & flt nm = cmd.ExecuteScalar()
If nm > 0 Then
'---显示"待处理"记录数
nd.Text = nd.Name & "(" & nm & ")"
Else
nd.Text = nd.Name
End If
End If
Exit For
End If
End If
Next
tr1.ResumeRedraw()
msgbox(2)
End If
上面代码上下都用了防止闪烁的代码,为什么还是会闪烁?
谢谢!
[此贴子已经被作者于2017/6/6 18:14:59编辑过]
加好友 
发短信
Post By：2017/6/5 21:32:00 [只看该作者]
此主题相关图片如下：qq截图20170606181210.jpg
