以文本方式查看主题

-  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


Button1:
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20190928093928.png
图片点击可在新窗口打开查看
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、上传具体实例测试