主题：[求助]用专业报表打印支piao遇到的问题

For i As Integer = 0 To CStr(CurRow("金额")).Length - 2

rx = new prt.RenderText

rx.Text = GetDigit(CurRow("金额"),-2 + i)

Dim dr As DataRow = DataTables("调整").DataRows(4 + i)

Dim dy As Integer = dr("左")

Dim du As Integer = dr("上")

rx.x = dy

rx.y = du

doc.body.Children.Add(rx)

Next