elease 5;"+ls_ret+ls_syntax //截掉ls_syntax中的数据部分，5.0以"sparse(names="dept_name?) "作为参考位置//6.0以html(作为参考位置long pos1,pos2pos1 = pos(ls_syntax,'sparse(names="',1)pos2 = pos(ls_syntax,'"',pos1 +16)ls_syntax = left(ls_syntax,pos1) + mid(ls_syntax,pos1 +1,pos2 - pos1 +1)dw_New.create(ls_syntax,ls_error)if ls_error <> '' then messagebox('Create Error',ls_error)else dw_new.settransobject(sqlca) dw_new.retrieve()end if//pb6,pb7的代码可以参照pb5自己写,只是文件头和数据窗结束标记不同而已。
上一页 [1] [2]
|
