语法解法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim p As WinForm.TreeNode = e.node.ParentNode

If p IsNot Nothing Then

For Each n As WinForm.TreeNode In p.Nodes

If n.name <> e.Node.name Then

n.CollapseAll

End If

e.node.ExpandAll

请问下老师，为什么上述代码，无法实现，展开客户的节点后，怎么关闭产品，点击展开产品节点后关闭客户的节点

此主题相关图片如下：节点展开.png

在代码中目录树怎么根据自己的需求进行排序。

1、

Dim p = e.node.ParentNode
If p Is Nothing Then p = e.sender
For Each n As WinForm.TreeNode In p.Nodes
    If n.name <> e.Node.name Then
        n.CollapseAll
    End If
Next

e.node.ExpandAll

2、控制目录树节点生成的先后顺序即可，具体问题上传实例测试

此主题相关图片如下：符号.png

请问下，怎么去号“编号”列前的补充符号0

没看懂。您是要去掉0？还是要补0

去掉0

以及将字符转换为日期

for each r as row in tables("表A").rows

if r.isnull("编号") = false then r("编号") = r("编号").trimstart("0")

'----定义一个临时表-----------------

cmd.CommandText="select distinct lifnr as 编号,name1 as 名称,sortl as 简称,anred as 标题,(Case ktokk when 'z001' then '外部供应商' when 'Z002' then '内部供应商' when 'Z003' then '一次性供应商' when 'Z004' then 'FI供应商' else '其他' end) as 类型,stras as 地址,pfach as 邮政信箱,pstlz as 邮政编码,telbx as 电子信箱,telf1 as 电话1,telf2 as 电话2,erdat as 创建日期,kurztext as 冻结原因,username as 用户 f rom (sapprd.lfa1 a1 left outer join sapprd.tq04s a2 on a1.sperq=a2.sperrfkt) left outer join sapprd.cdhdr a3 on a1.lifnr=a3.objectid where a1.mandt='800' and a2.mandt='800' and a2.sprache='1' and a3.mandant='800'"

cmd.CommandTimeOut="30000"

dt=cmd.ExecuteReader()

'----目录树----

Dim filter As String

Select Case e.Node.name

Case "未删除"

Filter="其他_集中删除<>'X',其他_财务删除<>'X',其他_采购删除<>'X'"

'Case "已删除"

'Filter=""

'Case "集中删除"

'Filter=""

'Case "财务删除"

'Filter=""

'Case "采购删除"

'Filter=""

End Select

Tables("采购管理系统_table1").DataSource = dt

Tables("采购管理系统_table1").Filter=filter

老师请问下，上述代码那个地方出错了

Filter="其他_集中删除<>'X' and 其他_财务删除<>'X' and 其他_采购删除<>'X'"

此主题相关图片如下：窗口运行错误8.png

主题：语法解法