BeforeGetImage出现问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → BeforeGetImage出现问题

共有1750人关注过本帖树形打印复制链接主题：BeforeGetImage出现问题

douglas738888

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

BeforeGetImage出现问题 发帖心情

Post By：2016/6/26 17:09:00 [只看该作者]

请教老师，有这样一个问题，下面这段代码运行是正常的，但是同样的代码把Label130 替换成其他的 Label131或Label002....，打开窗口前提示就报错“无法找到控件Label131...... ” ，点击报错窗口确认后，正常窗口打开后代码功能是正常的。如果不用以下代码，使用其他Label131控件是正常的，

也不报错，功能也正常的。不知这是不是BUG。

在PictureBox3的BeforeGetImage里写入的代码：

Dim pbx As WinForm.PictureBox = e.Sender

Dim lbl As WinForm.Label = e.Form.Controls("Label130")

If lbl IsNot Nothing Then

Dim Count As Double

Count = DataTables("项目信息主表").Compute("Count(项目编号)","信息甄批_投审人员 Like '%" & _UserName & "%' and (信息甄批_投审确认 not Like '%" & _UserName & "%' or 信息甄批_投审确认 Is null)")

If Count = 0 Then

e.File = "Green.ico" '显示图片

ElseIf Count >= 1 Then

e.File= "Red.ico" '显示图片

End If

lbl.Text = "" & Count & ""

End If

[此贴子已经被作者于2016/6/26 17:11:48编辑过]

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/26 17:12:00 [只看该作者]

把这个控件删除，重新加入试试。

实在不行，上传实例。

douglas738888

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

Post By：2016/6/26 17:16:00 [只看该作者]

重新删除好多次了，也重新增加了，还是这样，就是只能在TABLE130控件下不报错，同样的代码我也做了实例测试，实例不报错啊，但是把同样的代码放到工程文件中就报错

也不知道是为什么？？

douglas738888

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

Post By：2016/6/26 17:23:00 [只看该作者]

上传个实例，但是这个实例不报错哦，还是代码存在一定的缺陷。好像不用设绑定，实例中的代码也能运行

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试aa.zip

刚刚又在工程文件进行了测试，BeforeGetImage里面只写Dim pbx As WinForm.PictureBox = e.Sender这句代码就不报错了功能也能实现了

但是图片的转换是在TIMERTICK里面实现的，不知这样的写码方式对吗？？目前测试好像是没有问题，但还是有些怀疑

还是请老师看看实例，里面的代码如果在TIMERTICK转换图片，是否这样的方式是可行的，主要是怕存在隐患问题。

[此贴子已经被作者于2016/6/26 17:51:00编辑过]

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/26 23:39:00 [只看该作者]

绑定的时候，只能绑定表列或者var变量啊，不能任意绑定成你填写的值啊。

本来就应该在Timertick事件转换图片的

douglas738888

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

Post By：2016/6/27 14:17:00 [只看该作者]

还得请教老师，

问题1：下面代码，点击当前行后就自动消失，审定确认列的行也就自动填写_UserName的内容了，无法审核行里面的内容，应该是点击当前行处理完后关闭窗口，该行才不会加载。

查找了好久也没能发现问题，该窗口也没有写入其他条件控制该TABLE的加载和筛选条件啊

窗口AFTERLOAD

Dim Filter As String = "审批人员 Like '%" & _UserName & "%' and (审定确认 not Like '%" & _UserName & "%' or 审定确认 Is null)"

Tables("投标商务待审_Table8").Filter = Filter

窗口内副本CLICK

If e.Row("审定确认").Contains(_UserName) = False Then

e.Row("审定确认") = (e.Row("审定确认") & "," & _UserName).Trim(",")

End If

问题2：另外，再请教老师，因为特殊流程需要，副本table是要显示的行包括前两个或多个流程的审核意见进行查看，以上代码如果点击审批人员是非登录人员的行，同样会在该行自动填入_UserName的内容，怎样限制，审批人员与_UserName不符合，审定确认列不自动填入_UserName

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/27 15:25:00 [只看该作者]

1、AfterLoad事件

Dim Filter As String = "审批人员 Like '%" & _UserName & "%' and (审定确认 not Like '%" & _UserName & "%' or 审定确认 Is null)"
Tables("投标商务待审_Table8").Filter = "_Identify in (-1," & Tables("投标商务待审_Table8").DataTable.GetComboListString("_Identify", filter).replace("|", ",") & ")"

2、Click事件

If e.Row("审批人员").Contains(_UserName) = False Then Return

下一主题 >> << 上一主题

主题：BeforeGetImage出现问题