以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94606)

--  作者:刘林
--  发布时间:2016/12/27 19:26:00
--  表显示
我有个表,系统菜单并闭了,并且启动时打开了一张图的窗口,但这个表的表头总在系统启动时显示出,而图不显示,之前不这样,是设置到哪里了吗?
--  作者:有点蓝
--  发布时间:2016/12/27 20:37:00
--  
没看懂,截图说明
--  作者:刘林
--  发布时间:2016/12/27 21:14:00
--  
图片点击可在新窗口打开查看

--  作者:刘林
--  发布时间:2016/12/27 21:17:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:5jvu{mwk9@{c%dj2~erbj9d.png
图片点击可在新窗口打开查看

--  作者:刘林
--  发布时间:2016/12/27 21:17:00
--  
就是下面的表头


--  作者:fjlclxj
--  发布时间:2016/12/27 21:19:00
--  
主窗口
maintable

--  作者:有点蓝
--  发布时间:2016/12/27 21:26:00
--  
项目启动事件代码贴出来看看
--  作者:刘林
--  发布时间:2016/12/27 21:52:00
--  
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
    TableCaptionVisible = False
    Forms("开始").open()
    Dim schoolname As String = user.group
    If User.Roles() = "业务主管"
        Dim dr As DataRow = DataTables("学校信息").find("单位全称 = \'" & schoolname & "\'")
        If dr Is Nothing Then
            MessageBox.show("你好,你校基本信息还没注册好,请进入注册","提示")
            dr = DataTables("学校信息").addnew()
            dr("单位全称") = schoolname
            MainTable = Tables("任课信息表")
            Forms("教师信息").open()
        End If
    End If
End If

--  作者:有点蓝
--  发布时间:2016/12/27 22:14:00
--  
Forms("教师信息")设置为主窗口,所有者表设置为"任课信息表"
--  作者:刘林
--  发布时间:2016/12/27 22:23:00
--  
还是一样