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


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

主题:错误提示

帅哥哟,离线,有人找我吗?
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


加好友 发短信
等级:超级版主 帖子:104811 积分:532932 威望: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 [只看该作者]

错误依旧

 回到顶部