[求助] excel 报表中怎么设置数量 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] excel 报表中怎么设置数量

共有2900人关注过本帖树形打印复制链接主题：[求助] excel 报表中怎么设置数量

wangyinming

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

加好友

发短信

等级：童狐帖子：286 积分：2345 威望：0 精华：0 注册：2013/8/30 3:37:00

[求助] excel 报表中怎么设置数量 发帖心情

Post By：2015/8/25 22:34:00 [只看该作者]

我想在A4大小的纸上，生成4个100*100的报表，但是不会做。

在细节区<表A，4>只能竖的，我想横的有2张，请老师指点

大红袍

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

加好友

发短信

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

Post By：2015/8/25 22:35:00 [只看该作者]

参考

http://www.foxtable.com/help/topics/1414.htm

wangyinming

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

加好友

发短信

等级：童狐帖子：286 积分：2345 威望：0 精华：0 注册：2013/8/30 3:37:00

Post By：2015/8/25 22:42:00 [只看该作者]

请问图片，怎么设置

[&&剧毒.png, 1, 0,135,130]

[&&BarCode.gif, 2, 13,88,88]

大红袍

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

加好友

发短信

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

Post By：2015/8/25 22:45:00 [只看该作者]

参考例子

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=71330&replyID=491100&skin=1

wangyinming

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

加好友

发短信

等级：童狐帖子：286 积分：2345 威望：0 精华：0 注册：2013/8/30 3:37:00

Post By：2015/8/25 22:52:00 [只看该作者]

打开不了开发者文件，模板中是[&&BarCode.gif, 2, 13,88,88]，BarCode0，BarCode1，BarCode2

但是我的生成方法是

报表事件BuildDetail做的，编码BarCode0，BarCode1，BarCode2，没有效果

If e.Book.TempLate = "危废标签" Then

If e.Region = "表A" Then

If e.DataRow Is Nothing OrElse e.DataRow.IsNull("编号") Then '如果是空行或者Lot列为空

Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片

img.Save(ProjectPath & "Images\BarCode.gif")

Else '否则生成条形码图片

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

Bar.Code = e.DataRow("编号")

Bar.Text = e.DataRow("编号")

Bar.TextAlignment = Barpro.Alignment.BelowCenter

Bar.QuietZoneWidth = 1

Bar.QRCodeModuleSize = 1

Bar.SaveImage(ProjectPath & "Images\BarCode.gif")

End If

大红袍

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

加好友

发短信

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

Post By：2015/8/25 23:05:00 [只看该作者]

static idx As Integer
static drs As List(Of DataRow)
If e.Book.TempLate = "工序排配计划表" Then
    If e.region = "工序计划表" Then
        If e.DataRow IsNot Nothing Then
            For i As Integer = idx To idx + 9
                If i < drs.Count
                    Dim Bar As New BarCodeBuilder
                    Bar.Symbology = Barpro.Symbology.Code39
                    Bar.Code = drs(i)("工序ID")
                    Bar.BarRatio = 0.3
                    Bar.BarHeight = 8
                    Bar.Rotate = Barpro.Rotate.Degree270
                    Bar.AddCheckSum = False
                    bar.SaveImage(ProjectPath & "Images\BarCode" & i-idx & ".gif",300)
                Else
                    Dim bit As new bitmap(1,1)
                    bit.Save(ProjectPath & "Images\BarCode" & i-idx & ".gif")
                End If
            Next
            idx += 10
        End If
    End If
End If

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

主题：[求助] excel 报表中怎么设置数量