- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 晕死了，升级后程序代码出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39455)
-- 发布时间：2013/8/24 18:25:00
-- 晕死了，升级后程序代码出错
仔细检查了，之前登录没有问题，也没有改变任何代码...
出错代码如下
此主题相关图片如下：qq图片20130824182351.jpg
Dim dr As DataRow
Dim Ok As Boolean
Dim zhanghao As String = e.Form.Controls("账号1").Value
Dim mima As String = e.Form.Controls("密码1").Value
If zhanghao = Nothing Then
MessageBox.Show("请输入您的登录账号!", "错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
ElseIf mima = Nothing Then
MessageBox.Show("请输入您的登录密码!", "错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
DataTables("用户表").LoadFilter= "[ID] = \'" & zhanghao & "\'"
DataTables("用户表").Load
dr = DataTables("用户表").Find("[ID] = \'" & zhanghao & "\'")
If dr Is Nothing Then
Messagebox.show("登陆账号和密码不一致!","错误提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
ElseIf dr("密码") <> MD5Encrypt(mima) Then
Messagebox.show("登陆账号和密码不一致!","错误提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
ElseIf dr("离职") = True Then
Messagebox.show("该账号已经被锁定,禁止登录!","错误提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
ElseIf dr("ID")="FS0000"
Dim n As WinForm.TextBox = e.Form.Controls("账号1")
SaveConfigValue("Username",n.Text)
basemainform.visible=False
e.Form.close
Else
Dim n As WinForm.TextBox = e.Form.Controls("账号1")
SaveConfigValue("Username",n.Text)
e.Form.BaseForm.Hide()
e.Form.close
Forms("主界面").Open()
End If
End If
-- 发布时间：2013/8/24 18:32:00
--
出错的地方在
e.Form.close
Forms("主界面").Open()
这两句之间，莫名其妙啊
-- 发布时间：2013/8/24 18:38:00
--
哦。。。晕死，拿几个以前的项目来打开，都出这样的问题
-- 发布时间：2013/8/24 19:05:00
--
周一重新下载就不会了
-- 发布时间：2013/8/24 19:07:00
--
可能是升级照成的问题，楼主可以暂时退回旧版本使用。
-- 发布时间：2013/8/24 20:30:00
--
以下是引用狐狸爸爸在2013-8-24 19:05:00的发言：
周一重新下载就不会了
周一重新下载就不会了
狐爸，我再一次上当着急吃螃蟹了