- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何将piao据打印中金额栏改成文本框输入？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58425)
-- 发布时间：2014/10/16 14:58:00
-- 如何将piao据打印中金额栏改成文本框输入？
此主题相关图片如下：qq截图20141016143824.jpg
帮助文件中的“票据打印”范例是从库中读取并生成，我想实现：
截图中框选部分用TEXTBOX文本框代替LABEL并实现手动输入金额，离开后文本框后自动生成封位符并自动生成大写，且不需要绑定金额字段，因为我不需要保存该数据。
请老师帮忙看一下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:票据打印.rar |
[此贴子已经被作者于2014-10-16 14:59:02编辑过]
-- 发布时间：2014/10/16 15:26:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:票据打印.foxdb |
-- 发布时间：2014/10/16 17:03:00
--
谢谢有眯甜，功能基本实现。但那个封位符如何能加上？就是在最大位数左边加一个封位符
-- 发布时间：2014/10/16 17:10:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=18222
-- 发布时间：2014/10/16 17:35:00
--
以下是引用wh420在2014-10-16 17:03:00的发言：
谢谢有眯甜，功能基本实现。但那个封位符如何能加上？就是在最大位数左边加一个封位符
谢谢有眯甜，功能基本实现。但那个封位符如何能加上？就是在最大位数左边加一个封位符
选择打印之前，判断每个文本框，确定在哪里加入￥
-- 发布时间：2014/10/16 22:16:00
--
如何判断呢，麻烦您做到我的范例里，小弟会认真研读。
-- 发布时间：2014/10/16 22:23:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:票据打印.foxdb |
-- 发布时间：2015/3/11 11:46:00
--
TO 有点甜老师：我刚刚试了一下您的这个范例，封位符是加上了，但前面的人民币大写却被变成了零元整
-- 发布时间：2015/3/11 11:53:00
--
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
-- 发布时间：2015/3/11 12:02:00
--
还是零，没有作用。