以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  译编生成项目文件后出错了  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128890)

--  作者:ZJZK2018
--  发布时间:2018/12/17 17:40:00
--  译编生成项目文件后出错了
译编生成项目文件后用普通用户登录时,第一次没问题,第二次打开就出错了

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:打开项目.foxdb



图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181217173222.png
图片点击可在新窗口打开查看



--  作者:ZJZK2018
--  发布时间:2018/12/17 17:42:00
--  
老师译编的项目上传不了,麻烦你译编一下
--  作者:有点甜
--  发布时间:2018/12/17 18:19:00
--  

1、发布后我测试没问题。

 

2、你把自动打开设置成false吧。

 

3、如果还有问题,和客服核对一下激活码。


--  作者:ZJZK2018
--  发布时间:2018/12/18 9:44:00
--  
老师还是错误的,发布后第一次点击打开是正常的,关闭窗口第二次打开就出错了,同样错误码??激活码也核对过了

[此贴子已经被作者于2018/12/18 9:44:44编辑过]

--  作者:有点甜
--  发布时间:2018/12/18 10:00:00
--  
以下是引用ZJZK2018在2018/12/18 9:44:00的发言:
老师还是错误的,发布后第一次点击打开是正常的,关闭窗口第二次打开就出错了,同样错误码??激活码也核对过了

[此贴子已经被作者于2018/12/18 9:44:44编辑过]

 

1、升级到最新版的foxtable,然后发布测试;

 

2、如果新版发布后还是有问题,联系客服远程测试一下。


--  作者:ZJZK2018
--  发布时间:2018/12/18 12:14:00
--  
逻辑值加载后为什么为变成这样?


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181217160921.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2018/12/18 12:23:00
--  

当选中列的值是null值的时候,就会显示成这样。你可以把值改成false。

 

具体做个例子说明如何测试。


--  作者:ZJZK2018
--  发布时间:2018/12/18 14:22:00
--  
因软件需要,一打开软件时,先自动打开“项目选择”这个窗口,就会出现下面这种情况,下面红色部份代码不起作用,有没有其他办法解决??

\'e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None  \'消除某个独立或模式窗口的边框
e.Form.Strips("主菜单").Items.InsertControl("addnew",e.Form.Controls("Label"),0)  \'动态加载控件
\'==========定义第二个分区宽度=========
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
sp.SplitterDistance = sp.Height - 40

\'Functions.Execute("tbsz_e",e)

Dim tb1 As Table = Tables("打开项目_Table1")
If tb1.DataTable.DataCols.Contains("选中") = False Then
    tb1.DataTable.DataCols.Add("选中",Gettype(Boolean))
End If

If tb1.Rows.Count > 0 Then
    For Each rw As Row In tb1.Rows
        rw("选中") = False
    Next
    tb1.DefaultRowHeight = 32    \'设置行高度
    tb1.Select(0,0)
End If

tb1.SetColVisibleWidth("选中|50|工程名称|320|项目状态|60")
tb1.Cols("工程名称").AllowEdit = False
tb1.Cols("项目状态").AllowEdit = False
tb1.ExtendLastCol = True \'最后一列自动列宽


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20181218141536.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2018/12/18 15:18:00
--  

1、不要设置【自动打开】->True,请改成false;

 

2、在afterOpenProject,写代码打开窗口,如 forms("窗口1").Show


--  作者:ZJZK2018
--  发布时间:2018/12/18 16:25:00
--  
我把逻辑值改还是一样??

rw("选中") = False