| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 错误提示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141175) |
| -- 作者：yetle -- 发布时间：2019/9/23 14:53:00 -- 错误提示 .NET Framework 版本：4.0.30319.1 Foxtable 版本：2019.9.22.1 错误所在事件：窗口,登陆,TextBox2,KeyDown 详细错误信息： This row has been removed from a table and does not have any data. BeginEdit() will allow creation of new data in this row. KeyDown： If e.KeyCode = Keys.Enter Then Dim btt As WinForm.Button = e.Form.Controls("Button1") btt.PerformClick() e.Cancel = True End If |
| -- 作者：有点蓝 -- 发布时间：2019/9/23 15:15:00 -- Button1事件发上来看看 |
| -- 作者：yetle -- 发布时间：2019/9/23 18:20:00 -- Dim tx1 As WinForm.ComboBox = e.Form.Controls("ComboBox1") Dim user As String=tx1.text Dim sss As String=e.Form.Controls("ComboBox2").text Dim dept As String=e.Form.Controls("ComboBox3").text Dim tx2 As WinForm.TextBox = e.Form.Controls("TextBox2") Dim pows As String=tx2.text Dim dl As WinForm.Button = e.Form.Controls("Button1") Dim dt As DataTable=DataTables("用户表") Dim dr As DataRow \' If dept="" Then \' MessageBox.show("请选择所在部门!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error) \' Return \' Else If user="" Then MessageBox.show("请输入用户名称!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error) Return Else dr=dt.find("用户名称=\'" & user & "\'") If dr IsNot Nothing Then If pows=dr("密码") Then PopMessage("登陆成功","提示",PopIconEnum.Infomation,1) e.Form.Close dr("登陆时间")=Date.Now dr("登陆账套")=sss dr.Save() usna=user \' usna=dr("用户名称") \' Public pwsd As String \' Public dpt As String pwsd = pows \' pwsd = dr("密码") dpt = dept \' dpt = dr("部门") \'Forms("主窗口2").Controls("btnChat").Enabled = QQClient.Ready \'Forms("OpenQQ").Open(-2000,-2000) \'Dim btn As WinForm.Button = Forms("OpenQQ").Controls("btnLogin") \'btn.PerformClick() \'Forms("OpenQQ").Close syscmd.project.open(ProjectFile,sss) \' syscmd.project.Exit(True) Return Else MessageBox.show("密码错误","提示") Return End If Else MessageBox.show("用户不存在!","提示") Return End If End If
|
| -- 作者：有点蓝 -- 发布时间：2019/9/23 20:13:00 -- 更新到今天发布的最新版试试 |
| -- 作者：yetle -- 发布时间：2019/9/24 9:10:00 -- 还是不行呢 |
| -- 作者：有点蓝 -- 发布时间：2019/9/24 9:31:00 -- 表面看不出什么问题。做个例子发过来测试一下 |