主题：[求助]关于目录树输入问题的请教

 

你去看一下treeview的代码，有一句 idxs &= xxx 的。

 

你可以加入一个保存按钮，点击保存的时候再执行 idxs &= xxx

保存按钮中idxs & = dr("_Identify") & ","怎么改？

 如下

 

            

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

甜老师，我把新增和保存放到了一起，为什么按钮点击2次后才有效？

 哦，全局代码那里错了，改了一下

 

                                            

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1 (6).foxdb

OK,非常感谢甜老师，就是要这效果。我用之前的思路也实现了这个效果，但在关闭项目然后重新打开项目后，已经处理过的数据在目录树中会再次出现，没有真正达到设想的要求，而您的这个办法就不会出现这个问题了。再次谢谢甜老师。

甜老师，我还有一个问题，就是在表B有一个列“数量”,当新增时，输入的数量小于表A的“数量”时，下次再新增时，在目录树中仍然可以看到表A对应的内容并在目录树上显示余数。当后面新增的数量与之前的数量合计等于表A的“数量”后，新增时目录树不再显示对应的内容，新增的数量与之前的数量合计大于表A的数量时，进行提示，这个能做到吗？

 如下

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目xg.foxdb

谢谢甜老师，基本实现想要的功能，还有一个功能，在DropDownOpened时，目录树中的姓名旁边怎么实现剩余的数字（ tr("数量") = dr("数量") - DataTables("表B").Compute("sum(数量)", "姓名 = '" & dr("姓名") & "'")）？

 打开代码

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("表A","姓名|联系方式","_Identify not in (" & idxs.TrimEnd(",") & ")")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 1 Then
        nd.Text &= "(" & nd.DataRow("数量") - DataTables("表B").Compute("sum(数量)", "姓名 = '" & nd.DataRow("姓名") & "'") & ")"
    End If
Next