请教报告表头问题

在pcdmis几个默认报告里,有一个表头,里面有一个统计计数的单元格赋值,但在命令窗口中的统计计数行里,不支持输入文本内容(这里的数据类型应该是整型),然后,我想在报告表头里用条件来判断数字,并返回我想要的文本文字,请教大侠们这个问题怎样实现呀? 例如,我想要: IF STAT_COUNT=1 THEN "张三" 以上如何搞?我试了很多种写法,没有一个成功的 [attach]112[/attach] 如果以上不好实现,那么请教,在该单元格里,如何能把“注释”的“操作者”文本用公式体现在这里? 不要说直接在报告中显示“操作者”,在TextOnly和TextAndCAD中,是可以直接显示出来注释的,但在“CADOnly”中,注释是显示不出来的! 如能解决,十分感谢!
已邀请:
本帖最后由 爱,限量发行 于 2011-7-16 17:05 编辑

按照你上面的需求表达,作如下操作可实现:
1、打开PC-DMIS,新建程序文件,在程序文件开始插入如下语句:

C1 =COMMENT/INPUT,NO,FULL SCREEN=NO,
'Please input "OPERATOR"' ‘ 注释语句添加,菜单路径“Insert-report command-comment”,选择“input”,并编辑提示内容.
ASSIGN/V1=C1.INPUT ‘ 赋值语句,菜单路径“Insert-Assignment”

2、打开“File-reporting-edit-label template”,在安装根目录下的reporting文件夹中选择文件FILE_HEADER.LBL(默认为只读,需要先去除只读),并编辑该文件,
设置需要输出需求内容的cell 。
cell函数内容编辑为: =variable("V1")
保存并关闭。
3、运行程序即可。

效果图示(图示显示不全请单击下图查看):
[attach]113[/attach]
本帖最后由 arttk 于 2011-7-18 09:15 编辑

那再请教高手,不能直接等于赋值吗?如果能,又是哪个函数呢?谢谢!

下图中,直接等于赋值,也就是没有用“注释输入”,在编辑标号中可以正常显示,但在报告窗口中就不能了,为什么呀?

[attach]115[/attach]
另外还请教,怎样实现每新建一个程序,自动在里面增加一个“注释”呢?谢谢!
> arttk 发表于 2011-7-18 08:51 forum.php?mod=redirect&goto=findpost&pid=31537&ptid=8058
那再请教高手,不能直接等于赋值吗?如果能,又是哪个函数呢?谢谢!

下图中,直接等于赋值,也就是没有 ...


呵呵 你不觉得我说的方法很方便吗,你直接赋值也可以,但是你每次执行程序前就得需要重新改变你赋得的值,然后才可以运行。按照我说的操作你直接执行程序就OK了
> arttk 发表于 2011-7-18 08:57 forum.php?mod=redirect&goto=findpost&pid=31538&ptid=8058
另外还请教,怎样实现每新建一个程序,自动在里面增加一个“注释”呢?谢谢!


呵呵 能不能不要想着什么都自动化啊 ,我还没发现在程序里自动添加“注释”的功能……
不过话说回来了,没有不可以实现的!
nothing is impossible
{:soso_e185:}
> arttk 发表于 2011-7-18 08:57 forum.php?mod=redirect&goto=findpost&pid=31538&ptid=8058
另外还请教,怎样实现每新建一个程序,自动在里面增加一个“注释”呢?谢谢!


呵呵,非常感谢楼主的提问!
本帖最后由 arttk 于 2011-7-19 08:00 编辑

> 爱,限量发行 发表于 2011-7-18 18:29 forum.php?mod=redirect&goto=findpost&pid=31539&ptid=8058
呵呵 你不觉得我说的方法很方便吗,你直接赋值也可以,但是你每次执行程序前就得需要重新改变你赋得的值, ...


是的,你的方法的确很好,用在桥式机或其他自动机上。
但是,我这里是关节臂,所以......你懂的,呵呵
根本不要执行程序,所以我只想加个操作员上去,所以,最好是每次能自动加个注释上去,而每个员工只要做的就是在注释后面加上自己的名字就好了,还望不吝赐教!
总结,也就是说,那个cell要么等于注释,要么等于赋值,这是我最想要的...
其实,要是用运行程序输入名字的话,那还不如用自己写的脚本,用inputbox来实现,比系统自带的要好一点点,至少在输入框里,可以实现单击鼠标,里面的文字消失,然后再直接赋值,呵呵!
> 爱,限量发行 发表于 2011-7-18 18:29 forum.php?mod=redirect&goto=findpost&pid=31539&ptid=8058
呵呵 你不觉得我说的方法很方便吗,你直接赋值也可以,但是你每次执行程序前就得需要重新改变你赋得的值, ...


你的方法是,非得要在命令窗口中执行一下赋值,然后在报告中才可以显示,有没有办法,不执行就可显示呢?关节臂手动机
不过还是非常谢谢你,有没有二次开发的资料呀?能否给我一份呢?呵呵
我写了一个程序,“爱,限量发行”大师帮我看看
以上帖子中,想要报告表格中直接显示赋值的内容,是要把赋值命令执行一遍的,能不能把执行命令放在脚本里面来做呀?谢谢!
程序是用VB6.0做的
如果没装VB,下面是代码:
------------------------------------------
Dim pcdlrn As Object
Dim pcdpart As Object
Dim pcdcmds As Object
Dim pcdcmd As Object
------------------------------------------
Private Sub Combo1_DropDown()
Combo1.ForeColor = &H0
End Sub
--------------------------------------------
Private Sub Command1_Click()
On Error GoTo cab:
Dim abc
Set pcdlrn = CreateObject("pcdlrn.application")
Set pcdpart = pcdlrn.ActivePartProgram
Set pcdcmds = pcdpart.Commands
If Combo1.Text = "单击此处选择" Then
MsgBox "您选择的是谁?", vbOKOnly, "神马?"
Combo1.SetFocus
Else
Set pcdcmd = pcdcmds.Add(ASSIGNMENT, True)
abc = pcdcmd.PutText("INSPECTOR", DEST_EXPR, 0)
abc = pcdcmd.PutText("""" & Combo1.Text & """", SRC_EXPR, 0)
End
End If
Exit Sub
cab:
MsgBox "PCDMSI没有打开的零件程序", vbOKOnly, "注意": End
End Sub
-----------------------------------------
Private Sub Form_Activate()
Command1.SetFocus
End Sub
------------------------------------
Private Sub Form_Load()
Combo1.List(0) = "aa"
Combo1.List(1) = "bb"
Combo1.List(2) = "cc"
Combo1.List(3) = "dd"
Combo1.List(4) = "ee"
Combo1.List(5) = "ff"
Combo1.List(6) = "gg"
Combo1.List(7) = "hh"
Combo1.List(8) = "ii"
Combo1.ForeColor = &H80000000
Combo1.Text = "单击此处选择"
End Sub

-----------------------------------------------------
爱,限量发行:有人帮我解决了,呵呵,用Command.Execute 函数
这问题得到解决,以后可以实现用VB程序驱动机器了,直接在UG里应该就可以把程序编好了,操作员是看不到程序的,只看得到结果,呵呵!
太爽了!
> arttk 发表于 2011-7-20 08:33 forum.php?mod=redirect&goto=findpost&pid=31547&ptid=8058
爱,限量发行:有人帮我解决了,呵呵,用Command.Execute 函数
这问题得到解决,以后可以实现用VB程序驱动 ...


朋友,你的应用技术比我强好多!厉害,佩服!{:soso_e179:}
我要和你多请教呢!
论坛有你更精彩!

要回复问题请先登录注册