cursor在PRG中正常,连编成EXE时找不到
库存表cursor在PRG中正常,连编成EXE时找不到.或者有没有更好的办法实现.程序代码:
Create Table 仓库操作a (物资编号 V(4),操作 V(4),数量 N(4),日期 D) Insert Into 仓库操作a Values ("0001","期初",18,{^2016/03/21}) Insert Into 仓库操作a Values ("0002","入库",12,{^2016/03/04}) Insert Into 仓库操作a Values ("0002","出库",5,{^2016/03/20}) Insert Into 仓库操作a Values ("0001","出库",5,{^2016/03/14}) Insert Into 仓库操作a Values ("0005","期初",49,{^2016/03/11}) Create Table 物资信息表a (物资编号 V(4),物资名称 V(50),备注 V(40)) Insert Into 物资信息表a Values ("0001","灯管 T5 28W","") Insert Into 物资信息表a Values ("0002","1#螺纹管","") Insert Into 物资信息表a Values ("0003","光纤4芯黄色","") Insert Into 物资信息表a Values ("0004","铜球阀DN20","原库存") Insert Into 物资信息表a Values ("0005","六类网线浅蓝色","") Set Default To Left(Sys(16),Rat('\',Sys(16))) If Reccount() = 0 Messagebox("仓库操作表为空!",64,"系统提示") Cancel Endif Sele 物资编号,操作,Sum(数量) 数量 From 仓库操作a Group By 物资编号,操作 Into Cursor 操作汇总 Do (_Genxtab) With '库存表' && 这个"库存表"是个cursor,在.prg中运行正常,连编成.EXE文件时提示"文件找不到" *!* Select Dbf("库存表") If Type("期初") = "U" Alter Table 库存表 Add 期初 N(6) Endif If Type("入库") = "U" Alter Table 库存表 Add 入库 N(6) Endif If Type("出库") = "U" Alter Table 库存表 Add 出库 N(6) Endif Alter Table 库存表 Add 库存 N(8) Repl All 库存 With (期初 + 入库 - 出库) Select 库存表.物资编号,物资名称,期初,入库,出库,库存,物资信息表a.备注 From 库存表; Inner Join 物资信息表a On 库存表.物资编号 = 物资信息表a.物资编号 Into Cursor 库存汇总表 Browse Close Tables