Office中国论坛/Access中国论坛

标题: 把发票号根据指定的份数把递增的发票号码归集在一个文本框内 [打印本页]

---

作者: xyh2732    时间: 2013-5-18 00:05
标题: 把发票号根据指定的份数把递增的发票号码归集在一个文本框内
请问如何可以在 发票号码 上填写发票号，然后在根据份数 把递增的发票号码全部填入 汇集发票号款内，用“/”区分每个发票号码。

比如 发票号码框为“0000001”份数框上数字为“30” ，就把从“0000001”开始递增的结果填入 汇集发票号 款内，得出结果为“0000001/0000002/0000003/0000004/0000005/0000006/0000007/0000008/0000009/0000010/等等（后面还有20个不一一显示了”[attach]51808[/attach]

---

作者: xyh2732    时间: 2013-5-18 09:09
指定顶一下！！！！！！！！

---

作者: Henry D. Sy    时间: 2013-5-18 11:24

xyh2732 发表于 2013-5-18 09:09
指定顶一下！！！！！！！！

1. Private Sub Command7_Click()
   
2.     Dim lngA As Long
   
3.     Dim i As Long
   
4.     Dim strNo As String
   
5.     lngA = Val(Me.·¢Æ±ºÅÂë)
   
6.     For i = 0 To Me.·ÝÊý - 1
   
7.         strNo = strNo & Format((lngA + i), "0000000") & "/"
   
8.     Next
   
9.     ' MsgBox strNo
   
10.     Me.»ã¼¯·¢Æ±ºÅ = strNo
    
11. End Sub
    

复制代码

---

作者: Henry D. Sy    时间: 2013-5-18 11:25
呵呵，乱码
还需要加入判断，票号和份数不可为空

1. Private Sub Command7_Click()
   
2.     Dim lngA As Long
   
3.     Dim i As Long
   
4.     Dim strNo As String
   
5.     lngA = Val(Me.发票号码)
   
6.     For i = 0 To Me.份数 - 1
   
7.         strNo = strNo & Format((lngA + i), "0000000") & "/"
   
8.     Next
   
9.     ' MsgBox strNo
   
10.     Me.汇集发票号 = strNo
    
11. End Sub

复制代码

---

作者: Henry D. Sy    时间: 2013-5-18 11:27
呵呵，乱码
好需要加些判断票号和份数不可为空的代码

1. Private Sub Command7_Click()
   
2.     Dim lngA As Long
   
3.     Dim i As Long
   
4.     Dim strNo As String
   
5.     lngA = Val(Me.发票号码)
   
6.     For i = 0 To Me.份数 - 1
   
7.         strNo = strNo & Format((lngA + i), "0000000") & "/"
   
8.     Next
   
9.     ' MsgBox strNo
   
10.     Me.汇集发票号 = strNo
    
11. End Sub

复制代码

---

作者: xyh2732    时间: 2013-5-18 12:06

Henry D. Sy 发表于 2013-5-18 11:24

非常好。谢谢你的帮忙！！

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3