- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]卡号计算问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=157047)
-- 发布时间：2020/9/29 16:44:00
-- [求助]卡号计算问题
我设计一个会员卡录入程序，卡号列类型为字符，起始卡号为2016000200020001，终止卡号为2016000200020010,点击录入后，发现所有的卡号显示都不正确是怎么回事啊？
代码如下：
Dim qs As Decimal=e.Form.controls("起始").text
Dim zz As Decimal=e.Form.controls("终止").text
Dim val As Decimal=zz-qs
Dim i As Integer
For i=0 To val
Dim kh As Row=Tables("卡").AddNew()
kh("卡号")= e.Form.controls("起始").text+i
kh("面额")=e.Form.Controls("面额").text
Next
此主题相关图片如下：111.png
此主题相关图片如下：111.png-- 发布时间：2020/9/29 16:49:00
--
Dim qs As Long = clng(e.Form.controls("起始").text)
Dim zz As Long = clng(e.Form.controls("终止").text)
Dim val As Integer=zz-qs
For i As Integer = 0 To val
Dim kh As Row=Tables("卡").AddNew()
kh("卡号")= qs + i
kh("面额")=e.Form.Controls("面额").text
Next
-- 发布时间：2020/9/29 16:53:00
--
原来只需要长整数，学习了，谢谢
