Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
if Bar.SelectedIndex = 0 Then
Tables("导航_Table1").DataSource = DataTables("客户信息")
Tables("导航_Table1").OpenView("a")
Dim Lbl1 As WinForm.Label = Forms("导航").Controls("Label1")
Lbl1.Text = "客户信息"
ElseIf Bar.SelectedIndex = 1 Then
Tables("导航_Table1").DataSource = DataTables("产品目录")
Tables("导航_Table1").OpenView("a")
Dim Lbl1 As WinForm.Label = Forms("导航").Controls("Label1")
Lbl1.Text = "产品目录"
希望用户A只能打开客户信息表,如打开产品目录表会提示没有权限
(在导航窗口中的表都是副本的)