当字段允许修改并且字段类型为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