Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
同样的代码,为什么点击客服部可以查询到数据,点击生产部的节点就不行呢?
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
顶一下