DataTables("债权人基本情况表").Save()
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.BuildTree("债权人基本情况表","银行类别|开户银行|债权人")
Dim nd As WinForm.TreeNode = tv.SelectedNode
Dim bar As WinForm.NavBar = Forms("主界面").Controls("NavBar2")
Select Case nd.name
Case "所有银行"
bar.SelectedPage.Butt
Tables("债权人基本情况表").Filter = ""
Case Else
Dim Value()As String
Dim Filter As String
Value = nd.FullPath.Split("\")
Select Case nd.Level
Case 0
bar.SelectedPage.Butt & Value(0) & ""
Filter = "银行类别 = '" & Value(0) & "'"
Case 2
Filter = "银行类别 = '" & Value(0) & "'and 开户银行 = '" & Value(1) & "'and 债权人 = '" & Value(2) & "'"
bar.SelectedPage.Butt & Value(0) & "》" & Value(1) & ""
End Select
Tables("债权人基本情况表").Filter = Filter
'For Each nd As WinForm.TreeNode In tv.Nodes
If nD.Level = 0 Then
ND.Expand
End If
End Select
运行后出现如下提示：未将对象引用设置到对象的实例.请问怎么修改？谢谢！
加好友 
发短信
Post By：2020/2/11 21:11:00 [显示全部帖子]
