VB窗体Text1中一串16位数字作加法输入到Access表中去？求教 - VB6论坛

已结贴√ 问题点数：10 回复次数：4

VB窗体Text1中一串16位数字作加法输入到Access表中去？求教

VB窗体Text1中一串16位数字：规则是B120B39121000000　前十位B120B39121（前10位是固定的）不作加法，后6位（最高到99万）加法。当窗体Text2中输入20，按运行按钮则Access 表1中，出现　目的：后6位数+20

ID列：
B120B39121000001
B120B39121000002
B120B39121000003
B120B39121000004
B120B39121000005
B120B39121000006
B120B39121000007
B120B39121000008
B120B39121000009
B120B39121000010
B120B39121000011
……
B120B39121000020

--------------------
最后能否从表1中　ID 列查询出最大的数　即本题中的　B120B39121000020（按后6位数即可，前10位是固定的）
输出到窗体Text1中,再在Text2中输入80则　最终还是保持一串16位数
B120B39121000021
B120B39121000022
B120B39121000023
B120B39121000024
B120B39121000025
……
……
B120B39121000089
B120B39121000090
……
B120B39121000098
B120B39121000099
B120B39121000100

[ 本帖最后由豆豆17373 于 2012-11-4 11:03 编辑 ]

搜索更多相关主题的帖子: 最大的　 Text1　Text2　

第 2 楼

得分:0

导入到Access我会做，现在主要问题是万位数加法判断，开始6位“000000”(零）

第 3 楼

得分:0

以下是引用风吹过b在2012-11-4 10:50:59的发言：

select max(ID) as MAXID from 表

查询最大值，使用 MAX 函数查询。
你试试吧，很久没用数据库了，不太记得了。

嗯。查询最大值，使用 MAX 函数查询。明白了，我会了。
就是这个加法不太会

第 4 楼

得分:0

以下是引用Artless在2012-11-4 14:27:46的发言：

text1=B120B39121000000,text2=20
dd=left(text1.text,9) & str(val(right(text1.text,7))+20)

right函数，好像遇到“0”取不到，如果text1=B120B39120000000，右边起第7号是”0“话，left(text1.text,8) & str(val(right(text1.text,8))+20)

left(text1.text,9) & str(val(right(text1.text,7))+20)　显示出来话有空格吖！老师怎么去空格。

[ 本帖最后由豆豆17373 于 2012-11-4 16:23 编辑 ]

第 5 楼

得分:0

以下是引用豆豆17373在2012-11-4 16:22:10的发言：

right函数，好像遇到“0”取不到，如果text1=B120B39120000000，右边起第7号是”0“话，left(text1.text,8) & str(val(right(text1.text,8))+20)

left(text1.text,9) & str(val(right(text1.text,7))+20)　显示出来话有空格吖！老师怎么去空格。

学以致用,字符串与字符串相边，解决空格问题……

For i = 1 To Text2.Text '输入多少数字不明，故作循环

MsgBox Left(Text1.Text, 10) & Format(Str(Val(Right(Text1.Text, 8)) + i), "000000")　'用MsgBox　作循环每加一次显示结果值，回车下个循环
　
Next i

[ 本帖最后由豆豆17373 于 2012-11-4 17:00 编辑 ]