7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
apple_boy 2003-12-30
- 打赏
- 举报
找准位置，用力准能插入。
jpinglee 2003-12-30
- 打赏
- 举报
text1'下限
text2'上限
'如果text1与text2的头两个英文字母相同
dim str as string
dim lbd as integer,ubd as integer
str=left(trim(text1.text),2)
lbd=Cint(right(trim(text1.text),len(text1.text)-2))
ubd=Cint(right(trim(text2.text),len(text2.text)-2))
for i=lbd to ubd
insert into table(field) values(str & Cstr(i))
next i
text2'上限
'如果text1与text2的头两个英文字母相同
dim str as string
dim lbd as integer,ubd as integer
str=left(trim(text1.text),2)
lbd=Cint(right(trim(text1.text),len(text1.text)-2))
ubd=Cint(right(trim(text2.text),len(text2.text)-2))
for i=lbd to ubd
insert into table(field) values(str & Cstr(i))
next i
northwolves 2003-12-30
- 打赏
- 举报
?????????
flashrain 2003-12-30
- 打赏
- 举报
up
flashrain 2003-12-29
- 打赏
- 举报
up
