word文档存入PB数据库中

doubleclicked:
if not isvalid(dwo) or isnull(dwo) or row <= 0 or isnull(row) then return
//工艺描述

/********************将文档更新到数据库中image字段************/
long ll_row,ll_max,li_find,ll_ret
string ls_tfnum,ls_suffix
//将文档放置到Image字段
blob tot_b,lb_temp
long ll_bytes_read, ll_new_pos
long ll_filelength
integer li_FP,li_loops,i,li_ret,li_pos
string ls_filepath,ls_filename,ls_sql,ls_type,ls_remark1
n_cst_file_read_write lnv_1

if trim(dwo.name) <> 'artid' then return
ll_row = dw_1.getrow()
if ll_row <= 0 or isnull(ll_row) then
messagebox("提示","请选择行。")
return
end if
ls_remark1 = trim(dw_1.getitemstring(ll_row,"remark1"))
//if ls_remark1 <> '1' then return 
open(com_w_waitfor)
ll_row = row
ls_tfnum = this.GetItemString(ll_row,"artid")
if ls_tfnum = '' then
select  top 1 idcode
into :ll_max
from aew00000 with(nolock)