以文本方式查看主题

-  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=191597)

--  作者:朱女士
--  发布时间:2024/4/25 11:13:00
--  报表细节数据引用表达式

老师您好!
   我要制作一个模板,从两个表中有条件的引用数据,一个是工艺流程卡表,每一个小组的工艺流程是不同的,我将生产计划明细表中的生产计划下达给车间,限定小组。依据组别查找工艺流程,打印给车间。比如:我在生产计划表中,用第四组作业,那么就在工艺流程表中找到第四组的流程内容,打印出来,这个模板的条件怎么写?

谢谢!




--  作者:朱女士
--  发布时间:2024/4/25 11:14:00
--  
还有一个问题,就是想在数据表中建一个字段存储:条形码图形,字段类型是备注型吗?生成条形码的代码怎么写?
--  作者:有点蓝
--  发布时间:2024/4/25 11:20:00
--  
关联表设计模板参考:http://www.foxtable.com/webhelp/topics/0204.htm

如果条码是以图片形式存储,设置为图片列即可。生成条码参考:http://www.foxtable.com/webhelp/topics/1949.htm

--  作者:朱女士
--  发布时间:2024/4/25 11:50:00
--  
老师您好!
  我将“条形码”字段先用备注型创建,然后是将列属性改为:图片类型。我的代码如下:但是生成后,打开字段后没有生成的“条形码”,什么原因?
  
Select Case e.DataCol.Name 
    Case "清单条码编码", "清单条形码"
        If e.DataRow.IsNull("清单条码编码") Then
            e.DataRow("条形码") = Nothing
        else
            Dim doc As New PrintDoc
            Dim img As prt.RenderImage
            Dim Bar As New BarCodeBuilder
            Bar.Symbology = Barpro.Symbology.Code39
            Bar.BarRatio = 0.3
            Bar.BarHeight = 8
            Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
            For Each r As Row In Tables("生产计划明细表").Rows
                bar.Code = r("清单条码编码")
                img = New prt.RenderImage
                img.Image = bar.GetImage
                Doc.Body.Children.Add(img)
            Next

            
        End If 
End select

--  作者:朱女士
--  发布时间:2024/4/25 11:56:00
--  

报表细节引用问题,我不会写表达式 ,这样写对吗?
[@生产计划明细表,流程 "组别=” & [@工艺流程表,组别]"]

--  作者:有点蓝
--  发布时间:2024/4/25 12:00:00
--  
看帮助的时候请认真看帮助里的文字描述,不要随便用,上面的用法帮助里明显说明是用来打印条码的,如果需要的是生成条码的图片并保存,请使用示例一的用法

……
            e.DataRow("条形码") = Nothing
        else
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.Code = 
e.DataRow("清单条码编码")
Bar.BarWidth = 
0.3
Bar.BarHeight = 
8
dim 路径
Bar.SaveImage(projectpath  & 
"Attachments\\" & 
e.DataRow("清单条码编码") & ".jpg")
e.DataRow("条形码") = e.DataRow("清单条码编码") & ".jpg"
        End If