Foxtable(狐表)用户栏目专家坐堂 → 升级7月21日报错


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

主题:升级7月21日报错

帅哥哟,离线,有人找我吗?
lk15502
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:705 积分:4891 威望:0 精华:0 注册:2016/5/17 12:03:00
升级7月21日报错  发帖心情 Post By:2019/7/23 19:50:00 [只看该作者]

升级7月21日版本,报错:
编译错误:“Forms”不是“Windows”的成员。
错误代码:Dim frm = winwods.Forms.Form.activeform

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/23 20:25:00 [只看该作者]

winwods.Forms.Form

全部改为

system.winwods.Forms.Form

 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:705 积分:4891 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2019/7/24 20:19:00 [只看该作者]

这个登录窗口的加载代码,请问老师应该怎么改:
e.Form.AcceptButton = "确定"
e.Form.CancelButton = "取消"

Dim str As String = GetConfigValue("最后登录的用户名", "")
If str > "" Then
e.Form.Controls("UserName").ComboList = str
    e.Form.Controls("UserName").SelectedIndex = 0
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/25 8:39:00 [只看该作者]

msgbox(str) '获取到的是什么内容?

e.Form.AcceptButton = "确定"
e.Form.CancelButton = "取消"

Dim str As String = GetConfigValue("最后登录的用户名", "")
If str > "" Then
e.Form.Controls("UserName").text = str
End If

 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:705 积分:4891 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2019/7/25 16:22:00 [只看该作者]

msgbox(str)显示是上次登录用户名。正常的。现在的问题是打开项目登录窗口没有打开,直接进入项目。

AfterOpenProject的代码:

If Syscmd.Project.Update(False,False) = False Then '如果没有升级

    Forms("用户登录").open()

End If

'-------------------------------------------------

ApplicationMenu.visible = False

BaseMainForm.Text = "华灏信息管理系统"

If _Username <> "系统开发者" Then

    TableCaptionVisible = False

    ApplicationMenu.visible = False

End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/25 16:24:00 [只看该作者]

目的是希望打开项目的时候自动升级,然后打开窗口1。
但是上述代码肯定会在升级成功之后提示错误,因为一旦升级成功,Foxtable就会关闭,后面的打开窗口代码就会出错,当然后续其它的代码也一样会出错。
我们可以用下面的代码避免错误:

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    
Forms("窗口1").open()
    '后续其它代码
End
 If

也就是说Update执行后会返回一个逻辑值,如果升级成功,返回True,否则返回False。

总之,如果需要在AfterOpenPoject事件中实现自动升级,那么原有的AfterOpenProject事件代码必须包括在这个判断中,只有没有升级的情况下,才执行原来的代码:

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    '原AfterOpenProject事件代码
End
 If


 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:705 积分:4891 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2019/7/25 16:39:00 [只看该作者]

现在的问题是升级后,报错:
升级7月21日版本,报错:
编译错误:“Forms”不是“Windows”的成员。
错误代码:Dim frm = winwods.Forms.Form.activeform

 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:705 积分:4891 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2019/7/25 16:40:00 [只看该作者]

也没有这样的代码:Dim frm = winwods.Forms.Form.activeform

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/25 16:47:00 [只看该作者]

看2楼呀。肯定有这种代码。输出所有代码,搜索

 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:705 积分:4891 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2019/7/25 16:51:00 [只看该作者]

afteropenproject的全部代码:
If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    Forms("用户登录").open()
    '-------------------------------------------------
    ApplicationMenu.visible = False
    BaseMainForm.Text = "华灏信息管理系统"
    If _Username <> "系统开发者" Then
        TableCaptionVisible = False
        ApplicationMenu.visible = False
    End If
    systemready = False
    DataTables("原料库存表").DataCols("原料入库日期").RaiseDataColChanged()
    DataTables("坯布库存表").DataCols("坯布入库日期").RaiseDataColChanged()
    DataTables("成品库存表").DataCols("入库日期").RaiseDataColChanged()
    DataTables("化料库存表").DataCols("入库日期").RaiseDataColChanged()
    systemready = True
    DataTables("原料库存表").save
    DataTables("坯布库存表").save
    DataTables("成品库存表").save
    DataTables("化料库存表").save
End If
打开项目,就有上面的报错,登录窗口不打开,点击报错窗口确定,直接进入项目了

 回到顶部
总数 15 1 2 下一页