- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]自动生成 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54671)
-- 发布时间：2014/8/1 20:17:00
-- [求助]自动生成
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
For i As Integer = 1 To val(t2.text)
Dim ndr As DataRow = DataTables("发票管理").AddNew
ndr("发票号码") = val(t1.text) + i - 1
Next
老师，这是一个自动生成发票号码的代码现在问题是发票号码前面不能生成有零的号码。我要求前面有零。
[此贴子已经被作者于2014-8-1 20:18:10编辑过]
-- 发布时间：2014/8/1 20:32:00
--
http://www.foxtable.com/help/topics/0243.htm
是不是说的这里的内容
-- 发布时间：2014/8/1 21:10:00
--
03444803或05554880生成这样的数字字符串
-- 发布时间：2014/8/3 10:51:00
--
以下是引用风声在2014-8-1 21:10:00的发言：
03444803或05554880生成这样的数字字符串
03444803或05554880生成这样的数字字符串
取决于你的【发票号码】数据类型，设置成字符类型
ndr("发票号码") = "0" & (val(t1.text) + i - 1)
-- 发布时间：2014/8/4 16:14:00
--
此主题相关图片如下：加零.png
-- 发布时间：2014/8/4 16:19:00
--
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim s As String = ""
If t1.text(0) = "0" Then
s = "0"
End If
For i As Integer = 1 To val(t2.text)
Dim ndr As DataRow = DataTables("发票管理").AddNew
ndr("发票号码") = s & val(t1.text) + i - 1
Next
-- 发布时间：2014/8/4 20:51:00
--
谢谢老师好了。