以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 错误提示,怎么回事? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141392) |
-- 作者:yetle -- 发布时间:2019/9/28 9:43:00 -- 错误提示,怎么回事? .NET Framework 版本:4.0.30319.1 Foxtable 版本:2019.9.20.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. TextBox2,KeyDown: If e.KeyCode = Keys.Enter Then Dim btt As WinForm.Button = e.Form.Controls("Button1") btt.PerformClick() e.Cancel = True End If 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 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 pwsd = pows dpt = dept syscmd.project.open(ProjectFile,sss) Return Else MessageBox.show("密码错误","提示") Return End If Else MessageBox.show("用户不存在!","提示") Return End If End If |
-- 作者:有点蓝 -- 发布时间:2019/9/28 9:58:00 -- 1、更新到最新版本的Foxtable 2、上传具体实例测试
|