richtextedit控件的显示

Question

说明：我设两个richtextedit控件，一个用来输入并取到数据库，另一个用来显示   
  1、string   ls_richtext   
  　　boolean   lb_selected   
  　　long   ll_numchars   
  　　lb_selected   =   TRUE   
  　　ls_richtext=rte_1.CopyRTF(lb_selected)   
  　　update   t_public_kh   set   sy=:ls_richtext   where   id=3;   
  　　if   sqlca.sqlcode=0   then   
  　　　       messagebox('','1')   
  　　　       commit;   
  　　end   if   
  　　这个成功存进来   
    
  2、　string   ls_richtext   
  　　long   ll_numchars   
  　　select   sy   into   :ls_richtext   from     t_public_kh     where   id=3;   
  　　ll_numchars   =   rte_2.PasteRTF(ls_richtext)   
  　　这个就显示不出来。   

Answer 1

大哥  这是vb栏