主题：如何将piao据打印中金额栏改成文本框输入？

 
此主题相关图片如下：qq截图20141016143824.jpg

帮助文件中的“piao据打印”范例是从库中读取并生成，我想实现：

截图中框选部分用TEXTBOX文本框代替LABEL并实现手动输入金额，离开后文本框后自动生成封位符并自动生成大写，且不需要绑定金额字段，因为我不需要保存该数据。

请老师帮忙看一下
 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:piao据打印.rar

   

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:piao据打印.foxdb

谢谢有眯甜，功能基本实现。但那个封位符如何能加上？就是在最大位数左边加一个封位符

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=18222

 

选择打印之前，判断每个文本框，确定在哪里加入￥

如何判断呢，麻烦您做到我的范例里，小弟会认真研读。

    

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:piao据打印.foxdb

TO 有点甜老师：我刚刚试了一下您的这个范例，封位符是加上了，但前面的人民币大写却被变成了零元整

If e.Sender.Name Like "TextBox*" Then
    Dim str As String = ""
    For i As Integer = 0 To 9
        If e.Form.Controls("TextBox" & i).Text > "" Then
            str &= e.Form.Controls("TextBox" & i).Text
        Else
            str &= 0
        End If
    Next
    str &= "."
    For i As Integer = 10 To 11
        If e.Form.Controls("TextBox" & i).Text > "" Then
            str &= e.Form.Controls("TextBox" & i).Text
        Else
            str &= 0
        End If
    Next
    e.Form.Controls("大写金额").Text = CUMoney(val(str))
End If

还是零，没有作用。