不同用户对应诗选树编码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

不同的用户编辑不同的行，我用下面的代码实现了

2、然后在订单表的DataRowAdding事件中加入代码：

e.DataRow("业务员") = User.name

这样新增订单的时候，会自动在业务员列填入当前登录用户名。

3、最后将订单表的PrepareEdit事件设置为：

If e.Row("业务员") <> User.Name Then
e.Cancel = True
End If

4、在订单表AfterOpenProject 事件中实现了不同的用户编辑不同的行

Tables("表A").Filter="业务员='" & User.name & "'"

5、我现在简历了一个窗口，建立一个筛选树，使用下面两段代码

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("设备台账", "设备名称|本公司设备编号|放置地点")
trv.Nodes.Insert("显示所有行",0)
trv.ResumeRedraw

Tables("表A").Filter="业务员='" & User.name & "'"

Dim Filter As String

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If e.Node.Text <> "显示所有行" Then

Select Case e.Node.Level

Case 0

Filter = "[设备名称] = '" & dr("设备名称") & "'"

Case 1

Filter = "[设备名称] = '" & dr("设备名称") & "' And [本公司设备编号] = '" & dr("本公司设备编号") & "'"

Case 2

Filter = "[设备名称] = '" & dr("设备名称") & "' And [本公司设备编号] = '" & dr("本公司设备编号") & "'And [放置地点] = '" & dr("放置地点") & "'"

End Select

End If

Tables("设备台账").Filter = Filter

6、我希望筛选树只对应录入用户的信息进行筛选，上段代码产生的筛选树现实的是所有的用录入信息~~求帮助

主题：不同用户对应诗选树编码