| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 错误提示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141170) |
| -- 作者：yetle -- 发布时间：2019/9/23 12:44:00 -- 错误提示 .NET Framework 版本：4.0.30319.1 Foxtable 版本：2019.9.22.1 错误所在事件：项目,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() Forms("物料").open() MainTable=Tables("用户表") 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 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 & " " & "当前版本:" & PublishDate End If StatusBar.Message2=" 登陆日期:" & Date.Today |
| -- 作者：有点蓝 -- 发布时间：2019/9/23 13:46:00 -- AfterOpenProject的代码: If OpenFileArgs.count>0 Then Else Forms("登陆").Open() If usna="" Then syscmd.project.Exit() Return End If End If If User.Type <> UserTypeEnum.Developer TableCaptionVisible = False End If MainTable=Tables("用户表") Forms("主窗口").Open() Forms("物料").open() 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 & " " & "当前版本:" & PublishDate End If StatusBar.Message2=" 登陆日期:" & Date.Today
|
| -- 作者：yetle -- 发布时间：2019/9/23 14:54:00 -- 错误依旧 |