- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]定位行报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134262)
-- 发布时间：2019/5/2 9:05:00
-- [求助]定位行报错
我把专业报表文字对象的位置坐标存放在“套打编辑”表格中，在打印按钮中调用坐标的数值。
便于随时修改坐标，进行调试。但出现如图错误，请老师看看是哪里的问题？
谢谢！
此主题相关图片如下：123.jpg
代码如下：
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
Dim dr As DataRow
rt = new prt.RenderText
rt.Text = "票据的时候" \'设置文本对象的内容
rt.Style.Font = New Font("宋体", 20, FontStyle.Regular)
dr = DataTables("套打编辑").Find("套打名称 = \'"正卷封面"\' And 打印元素 = \'"原告"\'") \'找符合条件的行
If dr IsNot Nothing Then \'如果找到的话
rt.x = dr("竖向进纸x") \'取该行的x坐标
rt.y = dr("竖向进纸y")
End If
doc.body.Children.Add(rt)
rt = new prt.RenderText
rt.Text = "统默认会自动根据实际纸张的大小" \'设置文本对象的内容
rt.Style.Font = New Font("宋体", 20, FontStyle.Regular)
dr = DataTables("套打编辑").Find("套打名称 = \'"正卷封面"\' And 打印元素 = \'"被告"\'")
If dr IsNot Nothing Then \'如果找到的话
rt.x = dr("竖向进纸x") \'设置坐标的时候,注意加上偏移参数
rt.y = dr("竖向进纸y")
End If
doc.body.Children.Add(rt)
doc.Preview() \'预览
-- 发布时间：2019/5/3 11:34:00
--
删除多余的双引号""
dr = DataTables("套打编辑").Find("套打名称 = \'正卷封面\' And 打印元素 = \'原告\'") \'找符合条件的行
[此贴子已经被作者于2019/5/3 11:34:52编辑过]
-- 发布时间：2019/5/4 9:31:00
--
谢谢楼上的朋友，但是还是报错：
此主题相关图片如下：123.jpg
-- 发布时间：2019/5/4 9:37:00
--
改成，比如
rt.x = new C1.C1Preview.Unit(CStr(dr("竖向进纸x")))