- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 登录窗口写了几句代码就报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125354)
-- 发布时间：2018/9/26 22:37:00
-- 登录窗口写了几句代码就报错
Dim organName As String = e.Form.Controls("organName").Value
Dim userRole As String = e.Form.Controls("userRole").Value
Dim userName As String = e.Form.Controls("userName").Value
Dim dt As DataTable
Dim dr As DataRow
\'\'判断是否存在
cmd.CommandText = "选择 * From {user} Where [organName]=\'" & organName & "\' And [userRole]=\'" & userRole & "\' And [userName]=\'" & userName & "\' "
dt = cmd.ExecuteReader
If dt.DataRows.Count = 0 Then
Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
dr = dt.DataRows(0)
If e.Form.Controls("userPassword").Value = dr("userPassword") Then
_UserName = UserName
_UserOrgan = dr("organName")
_UserRole = dr("userRole")
\'\'权限控制
If _UserRole ="查询员" Then
\'DataTables("person").LoadFilter = ""
\'DataTables("organList").LoadFilter = ""
\'DataTables("history").LoadFilter = ""
\'DataTables("user").LoadFilter = ""
\'For Each t As Table In Tables
\'t.AllowEdit = False
\'Next
RibbonTabs("单位管理").Groups("").Visible=False
RibbonTabs("部门管理").Groups("").Visible=False
RibbonTabs("人员管理").Groups("").Visible=False
RibbonTabs("历史库管理").Groups("").Visible=False
RibbonTabs("用户管理").Groups("").Visible=False
ElseIf _UserRole ="管理员" Then
\'
\'\'\'县支行管理员看不到单位管理模块
Dim dr1 = DataTables("organList").SQLFind(" organName = \'" &_UserOrgan & "\'")
If dr1 IsNot Nothing Then
Dim fuzhu As String = dr.SQLGetValue("fuZhu")
If fuzhu.Length = 15 Then
RibbonTabs("单位管理").Groups("").Visible=False
Else
RibbonTabs("单位管理").Groups("").Visible=True
End If
End If
RibbonTabs("单位管理").Groups("").Visible=True
RibbonTabs("部门管理").Groups("").Visible=True
RibbonTabs("人员管理").Groups("").Visible=False
RibbonTabs("历史库管理").Groups("").Visible=False
RibbonTabs("用户管理").Groups("").Visible=True
ElseIf _UserRole ="操作员" Then
\'
RibbonTabs("单位管理").Groups("").Visible=False
RibbonTabs("部门管理").Groups("").Visible=False
RibbonTabs("人员管理").Groups("").Visible=True
RibbonTabs("历史库管理").Groups("").Visible=True
RibbonTabs("用户管理").Groups("").Visible=False
Else
Messagebox.show("当前用户角色为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
e.Form.BaseForm.Opacity = 0
e.Form.Close
Forms("首页").Open
basemainform.visible = True
\'ConfigBar.Items("标签1").Text=Date.Today & " " & _UserOrgan & " " & _UserRole & " " & _UserName
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
此主题相关图片如下：1.png
-- 发布时间：2018/9/26 22:45:00
--
1、哪句代码报错？报什么错？
2、你标红的代码和你弹出的错误没有任何关系。
3、msgbox(cmd.CommandText) 看看。
-- 发布时间：2018/9/26 22:53:00
--
1、哪句代码报错？报什么错？
2、你标红的代码和你弹出的错误没有任何关系。
3、msgbox(cmd.CommandText) 看看。
真的是这样的，我把红色注释掉就没问题，红色添加上就报按个错误，所以我也觉得奇怪啊
-- 发布时间：2018/9/26 23:00:00
--
尝试删除这句代码测试，如果是这句代码的问题，说明临时表dt的行，不支持继续sqlGetValue，而且没有必要这样做啊。直接用dr("fuzhu")就行啊
Dim fuzhu As String = dr.SQLGetValue("fuZhu")