这段代码怎么还是不对啊？

[xlwz]

string ls_bh, ls_seq,ls_date
datetime ldt_date
int rowno,rowno0=0

select isnull( max(gzsqdbh), 'SG' + string(today(),'yyyymm') + '000' )
into :ls_bh
from t_gzsq
where left(gzsqdbh, 8 ) = 'SG' + string(today(),'yyyymm');

//ls_seq = right( ls_bh, 3 )
ls_seq = right('000'+string( long( ls_bh ) + 1 ), 3 )
//ls_bh = left( ls_bh, 8 ) + ls_seq
do
rowno0++
loop while isnull(dw_1.object.gzsqdbh[rowno0])
rowno=rowno0
dw_1.object.gzsqdbh[rowno] = 'SG' + string(today(),'yyyymm')+ls_seq
dw_1.object.sqrq[rowno] = today()
dw_1.object.sqr[rowno] = "zx"
rowno++
运行是没有从表中找出符合条件的值。

[treesoft]

在内嵌sql中好象只能用连接的RDBMS中的函数或是过程，而不能使用pb的函数吧……

[cxwsoftware]

gz!

[workhand]

select isnull( max(gzsqdbh), 'SG' + string(today(),'yyyymm') + '000' )
into :ls_bh
from t_gzsq
where left(gzsqdbh, 8 ) = 'SG' + string(today(),'yyyymm');

执行完后判断一下sqlcode，看是否为0，不为零看sqlerrortext

[jlwei888]

ls_seq = right('000'+string( long( ls_bh ) + 1 ), 3 )
有问题

long( ls_bh ) 返回0

[xlwz]

为什么会返回0 啊？
怎么解决啊？

[lmby]

做long( ls_bh )这样转换的前提是 ls_bh isnumber()

[jlwei888]

int ff
ff = right( ls_bh, 3 )
if ff<999 then
ls_seq = string(ff+1,"000")
else
messagebox('error','号码错误!')
return
end if

[xlwz]

to lmby
前面一部分本质上是你写的，怎么回出现你说的错误啊？呵呵。。

[mittee]

select isnull( max(gzsqdbh), 'SG' + string(today(),'yyyymm') + '000' )
into :ls_bh
说明ls_bh里面有字母，不能转化为数字