主题：[求助]自动生成

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("fa piao管理").AddNew
    ndr("fa piao号码") = val(t1.text) + i - 1
Next

老师，这是一个自动生成fa piao号码的代码现在问题是fa piao号码前面不能生成有零的号码。我要求前面有零。

http://www.foxtable.com/help/topics/0243.htm

03444803或05554880生成这样的数字字符串

 

取决于你的【fa piao号码】数据类型，设置成字符类型

 

ndr("fa piao号码") = "0" & (val(t1.text) + i - 1)

此主题相关图片如下：加零.png

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("fa piao管理").AddNew
    ndr("fa piao号码") = s & val(t1.text) + i - 1
Next

谢谢老师好了。