如下图。支piao前缀和，后缀不固定多少位。
关于后缀如输入：0001或01；
如果让它自动根据：张数的值 ，想加；我现在如：前缀：999 ，后缀001；生成的值 是：9991，9992，9993；如何变成：999001，999002，999003
代码如下：
Dim zhbh As WinForm.DropDownBox = e.Form.Controls("帐户编号")
Dim zplx As WinForm.ComboBox = e.Form.Controls("支piao类型")
Dim djrq As WinForm.DateTimePicker = e.Form.Controls("登记日期")
Dim yxq As WinForm.NumericComboBox = e.Form.Controls("有效期")
Dim zs As Integer = e.Form.Controls("张数").Value
Dim zpqz As String = e.Form.Controls("支piao前缀").Value
Dim zphm As String = e.Form.Controls("支piao号码").Value
msgbox(zpqz & zphm)
For i As Integer = 0 To zs-1
zphm= CInt(zphm) + i
Dim r As Row = Tables("支piao管理").AddNew
r("帐户编号") = zhbh.Value
r("当前状态") = "空白"
r("支piao号码") = CInt(zpqz & zphm)
r("登记日期") = djrq.Value
r("有效期") = yxq.Value
r("支piao类型") = zplx.Value
Next
此主题相关图片如下：uc截图20170726115339.png
加好友 
发短信
Post By：2017/7/26 11:58:00 [显示全部帖子]
