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

利用报表形式打印标签的设计中，如果标签的长宽我直接用数字表示一切正常无错，但是如果我用变量来替代（全局变量也不行），这样就总是出错，提示如图，不知是什么原因，望老师解答，谢谢！

Dim doc As New PrintDoc '定义一个报表

Dim rt As New prt.RenderText '定义一个文本对象

Dim ph, pw, pm, hn, hd, vn, vd As Double '定义纸长，纸宽，页边距、标签行数、行间距、列数、列间距

Doc.PageSetting.LeftMargin = pm '设置左边距

Doc.PageSetting.RightMargin = pm '设置右边距

Doc.PageSetting.TopMargin = pm '设置上边距

Doc.PageSetting.BottomMargin = pm '设置下边距

ph = 297

pw = 210

hn = 2

vn = 3

hd = 1

vd = 2

Dim lh, lw '定义标签的高度、宽度

lh = (ph - 2 * pm - (hn - 1) * vd) / vn

lw = (pw - 2 * pm - (vn - 1) * hd) / hn

Dim rtt As prt.RenderText '定义一个文本对象

doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式

For i As Integer = 1 To hn * vn

rtt = New prt.RenderText() '创建文本对象

rtt.Text = "Hello Foxtable " & i '设置文本对象的内容

rtt.Height = 95 '宽度毫米

rtt.Width = 99 '宽度毫米

rtt.Style.Spacing.left = vd '设置左边方向的间隔

rtt.Style.Spacing.top = hd '设置顶部方向的间隔

rtt.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框

rtt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中

rtt.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中

doc.Body.Children.Add(rtt) '将文本对象加入到报表

doc.Preview() '预览

此主题相关图片如下：x.png

[此贴子已经被作者于2022/10/21 22:46:30编辑过]

主题：指定的转换无效