老师，标注颜色的部分怎么改好？
.NET Framework 版本：2.0.50727.8935
Foxtable 版本：2018.8.30.1
错误所在事件：窗口,ga0101,TabControl1,SelectedIndexChanged
详细错误信息：
未将对象引用设置到对象的实例。
Dim tbl As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim pg As WinForm.TabPage
pg=tbl.SelectedPage
Dim dt As DataTable=DataTables("fa0110")
If pg.name<>"00" And pg.name<>"99" Then
dt.LoadFilter="bmgz Like '"& pg.name &"%'"
Else
dt.LoadFilter=""
End If
dt.Load()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.StopRedraw
trv.Nodes.Clear
Functions.Execute("za_ck_addtrvfind",trv,dt.name)
If pg.name="99" Then
Dim nodnames As List (of String)=DataTables("gl0101").GetValues("account")
For Each nod As WinForm.TreeNode In trv.Nodes
If nod.Nodes.count=0 Then
If nodnames.Contains(nod.name.split(" ")(0))=False Then
For Each noditem As String In nod.FullPath
trv.Nodes.Remove(trv.Nodes(noditem))
Next
End If
End If
Next
End If
trv.ResumeRedraw
加好友 
发短信
Post By：2018/9/5 9:42:00 [只看该作者]
