为什么没有插入记录？？
**设置运行环境
SET TALK OFF &&关闭命令显示
SET ESCAPE OFF &&禁止运行的程序在按 Esc 键后被中断
&&SET EXCLUSIVE OFF &&数据库表以共享方式打开
SET DELETED ON &&过滤掉已带删除标记的记录
SET HELP ON &&当按下 F1 键后，显示帮助窗口
**SET HELP TO Mysoft_HELP.CHM &&指定帮助文件
SET CONSOLE OFF &&不将结果输出到活动的用户自定义窗口中
SET DATE ANSI &&设定日期的年份为 4 位数
SET CENTURY ON &&指定日期表达式的显示格式为YY.MM.DD
SET SAFETY OFF &&指定在改写已有的文件时不显示对话框
SET OPTIMIZE ON
SET SYSMENU OFF
SET STATUS BAR OFF
set procedure to "getconnect.prg "
ServerConnect = GetServerDBConnect()
Ac=SQLEXEC(ServerConnect, "Select * From SS1PRODM ", "SS1PRODM ")
OPEN data SRM
&& 拷贝最近的SS1Prodem到本地
set exclusive on
USE SS1PRODM_SRM IN 0
SELECT SS1PRODM_SRM
ZAP
APPEND FROM DBF( 'SS1PRODM ')
use GOODSINS
update GOODSINS set DSTATUS = 'Y ' where DSTATUS = 'N '
use GOODSDEL
update GOODSDEL set DSTATUS = 'Y ' where DSTATUS = 'N '
SCAN
selectpnum as GoodsCode ,exnum as GoodsNameCHN ,desc as GoodsNameENG , ' ' as GoodsSPEC ,size as PPUNIT , ' ' as PSUNIT, size as SPUNIT , ' ' as SSUNIT , group as CATALOG ,date() as CREATEDATE, "12Hilton " as COMPANY , 'N ' as DSTATUS , date() as COPYTIME , ctot( "01/01/1900 " ) as TRANSTIME from ss1prodm_srm where pnum not in ( select pnum from ss1prodm_srm_bak ) into arra dd;
use GooDSins
appe from arra dd
ENDSCAN
我在命令中SELECT查是有数据。
但写在程序里面就没有了？？
哪儿写错了呀？
[解决办法]
再优化一下：
Select * From SS1PRODM_SRM into cursor AA
IF !USED( 'SS1PRODM_SRM_Bak ')
use SS1PRODM_SRM_Bak IN 0
ENDIF
select SS1PRODM_SRM_Bak
ZAP
appe from dbf( 'AA ')
use IN SS1PRODM_SRM_Bak
