████不知有没有办法执行foxpro2.6中的一连串命令,或将查询的临时表放在DataSet中与foxpro中的表操作████

[sharplee82]

下面是一foxpro2.6中的.prg文件.

VMS="4"
RATE=1.055
SET VIEW TO z:\user\common\prod\bal.vue
TMP="_"+subs(SYS(2015),4)


sele subs(ncppohdr.ppo_no,3,3)+SPACE(7) as sup,"成型 " as type,;
ncppohdr.ppo_no,;
SPACE(20) as MOULD_NO,;
SPACE(5) as MAT_ABR,;
"HK$" AS CURR,;
SPACE(60) AS DECP,;
0000000000 AS ORD_QTY, 0000000000 AS CANCEL_QTY,;
0000000000 AS FINISH_QTY,;
0000000000 AS BAL_QTY,;
000 AS PCS_SET,000 AS PCS_SHOT,000000.0000 AS PRICE,;
0000000000.00 AS AMTHK,0000000000.00 AS AMTRMB,000 AS CYCLE;
FROM NCPPOHDR;
WHERE NCPPOHDR.PPO_NO="CP" ;
AND subs(ncppohdr.ppo_no,7,1)=VMS ;
ORDER BY PPO_NO GROUP BY PPO_NO INTO DBF C:\AX



SET RELATION TO ppo_no INTO Ncppodtl ADDITIVE
REPL MOULD_NO WITH PADR(SUBSTR(Ncppodtl.partcode,2,RAT("-",Ncppodtl.partcode)-2),12),;
MAT_ABR WITH SUBSTR(Ncppodtl.partcode,RAT("-",Ncppodtl.partcode)+3,5),;
ORD_QTY WITH NCPPODTL.ORD_QTY/ncinjmdp.PCS_SET,;
FINISH_QTY WITH ROUND((NCPPODTL.REV_QTY+NCPPODTL.RPL_QTY-NCPPODTL.REJ_QTY)/ncinjmdp.PCS_SET,0),;
BAL_QTY WITH ORD_QTY-FINISH_QTY,;
PCS_SET WITH ncinjmdp.PCS_SET,;
CYCLE WITH NCINJMLD.CYCLE,;
DECP WITH NCINJMLD.DECP,;
PCS_SHOT WITH ncinjmdp.PCS_SHOT,;
PRICE WITH NCPPODTL.P_PRICE,;
AMTHK WITH INT(100*FINISH_QTY*PRICE)/100 ,;
AMTRMB WITH AMTHK*RATE ALL
GO TOP



sele subs(ncppodtl.ppo_no,4,3)+SPACE(7) as sup,;
iif(ncppodtl.ppo_no="SPY", "喷涂 ",iif(ncppodtl.ppo_no="CHM","电镀 "," ")) as type,;
ncppodtl.ppo_no,;
ncppodtl.partcode as MOULD_NO,;
ncppodtl.subcode as MAT_ABR,;
iif(ncppodtl.ppo_no="SPY","HK$","RMB") AS CURR,ncppodtl.ORD_QTY AS SET_QTY,;
ncppodtl.REV_QTY+ncppodtl.RPL_QTY-ncppodtl.REJ_QTY AS FINISH_QTY,;
ncppodtl.ORD_QTY-(ncppodtl.REV_QTY+ncppodtl.RPL_QTY-ncppodtl.REJ_QTY) AS BAL_QTY ,;
1 AS PCS_SET,1 AS PCS_SHOT, ncppodtl.P_PRICE AS PRICE,;
IIF(ncppodtl.ppo_no="SPY",ROUND( ncppodtl.P_PRICE*ncppodtl.ORD_QTY,2),0000000000.00) AS AMTHK,;
IIF(ncppodtl.ppo_no="SPY",0000000000.00,ROUND( ncppodtl.P_PRICE*ncppodtl.ORD_QTY,2)) AS AMTRMB;
FROM ncppodtl,ncppohdr;
WHERE ncppodtl.ppo_no=ncppohdr.ppo_no and ;
(ncppodtl.ppo_no="SPY" OR ncppodtl.ppo_no="CHM");
AND subs(ncppodtl.ppo_no,8,1)=VMS ;
AND ncppodtl.PARTCODE="P" ;
ORDER BY ncppodtl.ppo_no INTO DBF (TMP)
SELE AX
APPE FROM (TMP)

SELE (TMP)
USE
FILE1=TMP+".DBF"
DELE FILE &FILE1


SELE AX
DELE FOR BAL_QTY<=0
GO TOP


请问如何在.net中调该文件并获得结果集,如果没有办法如何想其它办法?

[saucer]

I am not familiar with FoxPro, can you return records through ADO? if so, see

HOW TO: Use ADO Recordsets in Visual Basic .NET
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q315974&ID=kb;en-us;Q315974&SD=MSDN

[saucer]

also see

Calling VFP COM components from .Net and ASP.Net
http://www.west-wind.com/presentations/VfpDotNetInterop/aspcominterop.asp

[sharplee82]

急啊，大家帮帮我！

[leimin]

sorry, 我对foxpro非常的不熟悉:-(