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


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

主题：升级7月21日报错
帅哥哟，离线，有人找我吗？
lk15502
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：705 积分：4897 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：705 积分：4897 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：705 积分：4897 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：705 积分：4897 威望：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/7/25 16:40:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：705 积分：4897 威望：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
打开项目，就有上面的报错，登录窗口不打开，点击报错窗口确定，直接进入项目了
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/7/25 16:54:00 [显示全部帖子]

升级之前是正常的
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/7/25 17:13:00 [显示全部帖子]

找到了在“计划管理”里有代码：

Dim frm = windows.Forms.Form.activeform

If frm IsNot Nothing Then

    If frm.name = "class108" Then

        frm.controls("button2").enabled = False

        frm.Height = 200

    End If

End If

但是改成Dim frm = system.windows.Forms.Form.activeform还是报错？？
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2019/7/25 17:30:00 [显示全部帖子]

重新启动项目好了，谢谢！

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