cursor在PRG中正常,连编成EXE时找不到

antony521 2016-04-11 10:22:29
库存表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
...全文
199 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
antony521 2016-04-12
  • 打赏
  • 举报
回复
_Genxtab是VFP9自带的,库存表是_Genxtab产生的CURSOR,_Genxtab功能是做分组归类的
都市夜猫 2016-04-11
  • 打赏
  • 举报
回复
你确定提示找不到的这个文件是库存表 而不是 _Genxtab 吗?

如果你确定是库存表,就得看你的这个库存表是用什么语句产生的了
如果使用 create cursor 创建的应该没问题
如果是用 SQL - select 产生的,可能需要加上 nofilter 子句
lygcw9602 2016-04-11
  • 打赏
  • 举报
回复
路径设置有问题吧

2,748

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧