此主题相关图片如下:qq截图1.png
此主题相关图片如下:qq截图1.png
同样的代码,为什么点击客服部可以查询到数据,点击生产部的节点就不行呢?
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim r As Integer
With Tables("C10分组及流程权限设置")
If tv.SelectedNode.Level = 0 Then
r = .FindRow("[部门] = '" & tv.SelectedNode.Name & "'", .Position + 1, True )
If r >= 0 Then
.Position = r
End If
Else
r = .FindRow("[分组] = '" & tv.SelectedNode.Name & "'", .Position + 1, True )
If r >= 0 Then
.Position = r
End If
End If
End With
[此贴子已经被作者于2011-10-31 15:18:38编辑过]