to liuri
刚才的方法开始的时候好用,但是关闭工作区之后再进去告诉"在当前工作区中没有打开的表"怎么回事
检索的click:
a=sqlconnect("cdxk","roman","yzg9940330")
IF a>0
sqlexec(a,"select kecheng_id,kecheng_daima,kecheng_mingcheng,renkejiaoshi_daima,kecheng_xingzhidaima from db_kecheng","linshi")
CursorSetProp("tables","db_kecheng","linshi")&&开始逐行提示上边的东西
CursorSetProp("KeyFieldList","id","linshi")
CursorSetProp("updatablefieldlist","id,kecheng_daima,kecheng_mingcheng,renkejiaoshi_daima,kecheng_xingzhidaima","linshi")
CursorSetProp("updatenamelist","id db_kecheng.id ,kecheng_daima db_kecheng.kechengdaima ,kecheng_mingcheng db_kecheng.kecheng_mingcheng,renkejiaoshi_daima db_kecheng.renkejiaoshi_daima,kecheng_xingzhidaima db_kecheng.kecheng_xingzhidaima","linshi")
CursorSetProp("sendupdates",.t.,"linshi")
thisform.grd.recordsource="linshi"
thisform.refresh
ENDI