Foxtable(狐表) → 用户栏目 → 专家坐堂 → 错误提示


  共有3429人关注过本帖树形打印复制链接

主题：错误提示
帅哥哟，离线，有人找我吗？
yetle
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		错误提示  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2019/9/23 14:54:00 [只看该作者]

错误依旧

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询