- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 文本对象的Width ,Height ,x,y等如何引用Table中相关数据? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1943)
-- 发布时间：2009/2/26 15:47:00
-- 文本对象的Width ,Height ,x,y等如何引用Table中相关数据?
请教文本对象的Width ,Height ,x,y是什么类型?如何引用Table中相关数据?
下面代码得不出结果.
Dim doc As New PrintDoc
Dim rt As New prt.RenderText
Dim r as Row = Tables("表A").Rows(0)
rt.Text = r("Name")
rt.Width = r("Width")
rt.Height = r("Height")
rt.x = r("x")
rt.y = r("y")
doc.Body.Children.Add(rt)
doc.Preview()
[此贴子已经被作者于2009-2-27 11:42:52编辑过]
-- 发布时间：2009/2/26 16:32:00
--
x和y都是整数的。
上面的代码，应该是可以执行的。
如果你的width列和height列，也是整数型的话。
-- 发布时间：2009/2/26 16:55:00
--
以下是引用狐狸爸爸在2009-2-26 16:32:00的发言：
x和y都是整数的。
上面的代码，应该是可以执行的。
如果你的width列和height列，也是整数型的话。
x和y都是整数的。
上面的代码，应该是可以执行的。
如果你的width列和height列，也是整数型的话。
不能!
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:aa.table |
-- 发布时间：2009/2/26 17:07:00
--
呵呵，用Val函数来一个霸王硬上弓：
Dim doc As New PrintDoc
Dim rt As New prt.RenderText
Dim r as Row = Tables("表A").Rows(0)
rt.Text = r("Name")
rt.Width = Val(r("Width"))
doc.Body.Children.Add(rt)
doc.Preview()
-- 发布时间：2009/2/26 17:36:00
--
以下是引用狐狸爸爸在2009-2-26 17:07:00的发言：
呵呵，用Val函数来一个霸王硬上弓：
Dim doc As New PrintDoc
Dim rt As New prt.RenderText
Dim r as Row = Tables("表A").Rows(0)
rt.Text = r("Name")
rt.Width = Val(r("Width"))
doc.Body.Children.Add(rt)
doc.Preview()
用ValOK了,多謝!
呵呵，用Val函数来一个霸王硬上弓：
Dim doc As New PrintDoc
Dim rt As New prt.RenderText
Dim r as Row = Tables("表A").Rows(0)
rt.Text = r("Name")
rt.Width = Val(r("Width"))
doc.Body.Children.Add(rt)
doc.Preview()
-- 发布时间：2009/2/27 11:33:00
--
...
rt.Width = 35(或"35.33")没问题,就是不能rt.Width = r("Width"),是否算作一个Bug?如不可修正,至少应在帮助中说明(帮助中似乎没有例子).
-- 发布时间：2009/2/27 11:34:00
--
呵呵，我看看。