.NET Framework 版本:4.0.30319.18063
Foxtable 版本:2020.1.19.19
错误所在事件:窗口,登陆,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
.NET Framework 版本:4.0.30319.18063
Foxtable 版本:2020.1.19.19
错误所在事件:项目,AfterOpenProject
详细错误信息:
This row has been removed from a table and does not have any data. BeginEdit() will allow creation of new data in this row.
项目,AfterOpenProject
Forms("主窗口").Open()
MainTable=Tables("用户表")
Tables("报价申请").Cols("业务部_客户").DropForm = "客户"
If User.Type <> UserTypeEnum.Developer
TableCaptionVisible = False
End If
If OpenFileArgs.count>0 Then
Else
Forms("登陆").Open()
If usna="" Then
syscmd.project.Exit()
Return
End If
End If
Tables("物料资料").AllowEdit=False
Tables("报价明细").Cols("产品编号").DropForm ="产品录入"
Tables("报价明细").Cols("产品名称").DropForm ="产品录入"
'Forms("主窗口").Open()
'Forms("主窗口1").open()
MainTable=Tables("用户表")
Dim w As Integer = sysinfo.ScreenWidth
Dim h As Integer = Sysinfo.ScreenHeight
With baseMainForm
.show
.WindowState = System.Windows.Forms.FormWindowState.Normal
.Width = 920
.Height = 640
.Top=h\10
.left=w\6
End With
Dim dr As DataRow=DataTables("用户表").find("用户名称='" & usna & "'")
If dr IsNot Nothing Then
StatusBar.Message1= "用户:" & usna & " " & "当前账套:" & dr("登陆账套")
End If
StatusBar.Message2=" 登陆日期:" & Date.Today