当字段允许修改并且字段类型为char时打开某窗口

记录一下

if row > 0 then
string ls_para,ls_ColType
ls_ColType = Describe(dwo.name+".ColType")
if Pos(Lower(ls_ColType),"char")<>0 and this.object.datawindow.readonly <> 'yes' and this.Describe(string(dwo.name) + ".TabSequence") <> '0' then
this.accepttext()
ls_para =  getitemstring(row,string(dwo.name))
openwithparm(w_edit_view,ls_para)
if message.stringparm > "" then
setitem(row,dwo.name, Message.StringParm)
end if
end if
end if