- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于unit的类型转换 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174235)
-- 发布时间：2022/1/6 15:09:00
-- [求助]关于unit的类型转换
在报表中，用条形码的Y坐标减去10，来设置文本框的Y坐标，发生这个问题，如何处理才好？
-- 发布时间：2022/1/6 15:14:00
--
需要往上移一下-- 发布时间：2022/1/6 15:43:00
--
贴出代码说明
-- 发布时间：2022/1/6 15:57:00
--
Dim rws As List(of Row)=Tables("CX订单唯一码_工单明细_数字编码").GetCheckedRows
Dim doc As New PrintDoc
Dim rbc(1000)
Dim rx As prt.RenderText
Dim i,j As Integer
Dim y As Integer
Dim rm As prt.RenderEmpty \'定一个空对象
\'messagebox.show(1)
For Each rw As Row In rws
rbc(i) =New prt.RenderBarCode()
rbc(i).Height = 25
rbc(i).BarCodeType = BarCodeEnum.Code39
rbc(i).BarDirection = BarDirectionEnum.Normal
rbc(i).Text = rw("数字编码")
rbc(i).ShowText = True
doc.Body.Children.Add(rbc(i))
rx = new prt.RenderText
rx.Text = rw("唯一码")
rx.x = 100
rx.y = rbc(i).y
\'rx.y=rx.y-10
rx.Style.Font=New Font("宋体", 20, FontStyle.Bold)
doc.body.Children.Add(rx)
rbc(i+1) =New prt.RenderBarCode()
rbc(i+1).Height = 12
rbc(i+1).BarCodeType = BarCodeEnum.Code39
rbc(i+1).BarDirection = BarDirectionEnum.Normal
rbc(i+1).Text = ""
rbc(i+1).ShowText = False
doc.Body.Children.Add(rbc(i+1))
i=i+2
j=j+1
If i Mod 12=1 Then j=0
Next rw
Doc.PageSetting.PaperKind=11
Doc.Preview()
-- 发布时间：2022/1/6 15:57:00
--
想往上移一点，移不动-- 发布时间：2022/1/6 16:14:00
--
需要这样用：http://www.foxtable.com/webhelp/topics/1177.htm
rt.y = "Prev.Bottom + 5"
-- 发布时间：2022/1/6 16:16:00
--
谢谢