Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
全局变量 Public _UserName As String ' Public _UserGroup As String ' Public _UserBm As String ' Public _UserFz As String ' 事件 If _UserGroup = "总监" Then Dim Sq-l2 = "selec-t * from 销售表 where (Bm= '" & _UserBm & "')" Dim dt2 As system.data.DataTable = db.ExecuteDataSet(Sql-2).Tables(0) Dim t2 As Table = e.Form.Controls("Table1").Table t2.datasource = dt2.Copy t2.AllowEdit = False ' Else Dim Sq-l6 = "selec-t * from 销售表 where (制单人= '" & _Username & "')" Dim dt6 As system.data.DataTable = db.ExecuteDataSet(Sq-l6).Tables(0) Dim t6 As Table = e.Form.Controls("Table1").Table t6.datasource = dt6.Copy t6.AllowEdit = False ' End If 有值却找不到,无效? |