Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
'If nd.nodes.count<>0
'e.Form.Controls("Button3").Enabled=False
'Else
'e.Form.Controls("Button3").Enabled=True
'End If
If e.Node.Name = "全部" Then
Tables("供应商_table1").Filter = ""
Tables("供应商_table1").Sort = "分类编码"
Else
Tables("供应商_table1").Filter = "分类编码 Like '" & e.Node.fullName.replace("\",".") & "*'"
End If
Tables("供应商类别").Position = Tables("供应商类别").FindRow(e.node.DataRow)
If e.Node.Name = "全部"
e.Form.Controls("TextBox2").value="全部"
Else
e.Form.Controls("TextBox2").value=Tables("供应商类别").current("分类名称")
e.Form.Controls("TextBox3").value=Tables("供应商类别").current("分类编码")
End If
Forms("供应商").Controls("Table1").Select