[color=FF0000]下面的函数用于将任何在SQL Server上的表格设置为可更新表。如果字符数不超过255则可用,否则出错。请问应该如何写这个程序才可以使超过255个字符时使用,谢谢!!


PARAMETERS ytn,xtn,gjz&&ytn,xtn原表名和现临时表名,gjz关键字
PUBLIC upcg,cmd1,cmd2,cmd3,cmd4,cmd5
******************************************************************
PUBLIC zdlb,zd,lb,dylb&&字段列表,计算后段,列表,计算后的对应列表
cmd1="cursorsetprop('tables','"+ytn+"','"+xtn+"')"
**************************************************
cmd2="cursorsetprop('keyfieldlist','"+gjz+"','"+xtn+"')"
******************************************************
SELECT &xtn
zdzs=FCOUNT()
zdlb=""
FOR i=1 TO zdzs
  zdlb=zdlb;
  +ALLTRIM(FIELD(i))+","
ENDFOR
cmd3="cursorsetprop('updatablefieldlist','"+ALLTRIM(LEFT(zdlb,LEN(zdlb)-1))+"','"+xtn+"')"
***************************
SELECT &xtn
zdzs=FCOUNT()
lb=""
FOR i=1 TO zdzs
  lb=lb+ALLTRIM(FIELD(i))+" "+ytn+"."+ALLTRIM(FIELD(i))+","
ENDFOR
cmd4="cursorsetprop('updatenamelist','"+ALLTRIM(LEFT(lb,LEN(lb)-1))+"','"+xtn+"')"
**********************************************************
cmd5="cursorsetprop('sendupdates',.t.,'"+xtn+"')"
*****************************************************
&cmd1
&cmd2
&cmd3
&cmd4
&cmd5[/color]