以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样套打金额定位是左向右  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177892)

--  作者:fvcfox
--  发布时间:2022/6/8 17:24:00
--  怎样套打金额定位是左向右
Dim rt2_6 As New prt.RenderText \'定义一个文本对象
    rt2_6.Text = "¥" & r2("金额")
    rt2_6.Width = "Auto" \'宽度为40毫米
    rt2_6.Style.CharSpacing = CInt(r2("金额间距")) \'定义字间距 
    rt2_6.y = CInt(r2("上6")) ‘上边距
    rt2_6.x = CInt(r2("左6")) \'左边距
    doc.Body.Children.Add(rt2_6) \'将文本对象加入到报表
红色这样定上左边距,当金额千元到万元时,它会向右延伸,这对于套打的单据固定金额位置是对不上,怎样固定从“分”开始,然后当金额增大时,字符宽度是向左延伸的

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20220608171624.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2022/6/8 17:30:00
--  
估算一个字符的宽度,然后根据金额字符个数计算位置。

假设一个字符的宽度5,只有一个字符的时候,x=100,那么2个字符就是x=100-5,3个字符就是x=100-5*2

--  作者:fvcfox
--  发布时间:2022/6/8 17:35:00
--  
那怎样计算金额的字符,如果有小数点呢
--  作者:有点蓝
--  发布时间:2022/6/8 17:41:00
--  
转换为字符串:http://www.foxtable.com/webhelp/topics/1513.htm
--  作者:fvcfox
--  发布时间:2022/6/8 17:45:00
--  
因为是套打应该是去掉小数点,怎样去掉小数点