| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2910 人关注过本帖
标题:cursor在PRG中正常,连编成EXE时找不到
只看楼主 加入收藏
antony521
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:170
专家分:175
注 册:2009-8-20
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:11 
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
搜索更多相关主题的帖子: cursor 
2016-04-12 08:50
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
prg是不是没包含在项目里啊?

2016-04-12 09:22
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:10 
**C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 9\VFPXTAB.PRG
试试将 VFPXTAB.PRG 文件复制到主运行文件目录
将:
    Do (_Genxtab) With '库存表'
改为:
    Do VFPXTAB With '库存表'
2016-04-12 09:28
antony521
Rank: 3Rank: 3
等 级:论坛游侠
威 望:1
帖 子:170
专家分:175
注 册:2009-8-20
收藏
得分:0 
回复 3楼 吹水佬
VFPXTAB.PRG连编时203行有错误.微软的东西也有错误!
2016-04-12 10:13
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
代码说明不了问题,还是上传所有文件,让大家一起帮你看看吧

坚守VFP最后的阵地
2016-04-12 10:39
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
以下是引用antony521在2016-4-12 10:13:58的发言:

VFPXTAB.PRG连编时203行有错误.微软的东西也有错误!

看看VFPXTAB.PRG文件,有10个输入参数。
2016-04-12 10:45
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
第一个参数是表文件名,如果是cursor库存表,“库存表”是别名,要这样:
Do VFPXTAB With DBF('库存表'),......

2016-04-12 10:52
aaaaaa
Rank: 8Rank: 8
等 级:贵宾
威 望:21
帖 子:796
专家分:937
注 册:2012-9-4
收藏
得分:10 
以下是引用antony521在2016-4-12 10:13:58的发言:

VFPXTAB.PRG连编时203行有错误.微软的东西也有错误!


不要怪罪微软,这个是高位 ASC 码表的问题,与中文冲突。
在 203 行处屏蔽掉或注释掉原先的代码,比如:
[code]
*!*      this.badchars = '亗儎厗噲墛媽帍悜挀敃枟槞殸、¥?\,-=:;{}[]!@#$%^&*.<>()?'+;
           '[color=#FF0000]+|

民工子弟学校22班团小组长阳光模特队长冲锋篮球队前锋小苹果合唱队领唱蓝天舞蹈队编舞
2016-04-12 11:13
aaaaaa
Rank: 8Rank: 8
等 级:贵宾
威 望:21
帖 子:796
专家分:937
注 册:2012-9-4
收藏
得分:0 
油,这个网站会屏蔽到阿斯克字符的?
我还是发图吧。

在 203 行处屏蔽掉或注释掉原先的代码
改为:
图片附件: 游客没有浏览图片的权限,请 登录注册


Update :
========
This.badchars = ''

*!*    Asc(Chr(0x27)) - Asc(Chr(0xFE)) : (ASC 39 - 254)
For I = 39 To 254
    lcASC = Transform(I, "@0")
    This.badchars = This.badchars + Chr(&lcASC)
Endfor
This.badchars = This.badchars + Chr(34) + Chr(39) + " "

[此贴子已经被作者于2016-4-12 12:36编辑过]


民工子弟学校22班团小组长阳光模特队长冲锋篮球队前锋小苹果合唱队领唱蓝天舞蹈队编舞
2016-04-12 11:22
aaaaaa
Rank: 8Rank: 8
等 级:贵宾
威 望:21
帖 子:796
专家分:937
注 册:2012-9-4
收藏
得分:0 
this.badchars 字符串的从 0x27(39) 到 0xFE(254) 是错误的字符,不可以作为 VFP 的保留字,所以要屏蔽或过滤掉。
在中文环境下,高位 ASC 字符与中文有冲突,所以自己调整一下啦。

民工子弟学校22班团小组长阳光模特队长冲锋篮球队前锋小苹果合唱队领唱蓝天舞蹈队编舞
2016-04-12 11:37
快速回复:cursor在PRG中正常,连编成EXE时找不到
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026247 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved