标题:请教这段代码错在哪里?
只看楼主
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
得分:0 
用你15楼的下面代码顺带给数组赋值就是了:
程序代码:
SELECT qyjbxxb
for i=1 to (FCOUNT()-1)
    thisform.list2.additem(FIELD(i,'qyjbxxb',1))
ENDFOR
SELECT qyzycpk
    for i=3 to (FCOUNT()-1)
thisform.list2.additem(FIELD(i,'qyzycpk',1))
endfor

注意数组要保持可见性。

授人以渔,不授人以鱼。
2013-01-28 16:29
陶然愚者
Rank: 1
等 级:新手上路
帖 子:151
专家分:8
注 册:2012-12-13
得分:0 
是的,我将该段代码修改为:
SELECT qyjbxxb
qyzds=FCOUNT()
SELECT qyzycpk
cpzds=FCOUNT()
DIMENSION arr[(qyzds+cpzds-4),2]
SELECT qyjbxxb
for nIndex=1 to ALEN(arr,1)
   arr[nIndex,1]=FIELD(nIndex,'qyjbxxb',1)
   arr[nIndex,2]='qyjbxxb.'+FIELD(nIndex,'qyjbxxb')
   thisform.list2.additem(arr(nIndex,1))
ENDFOR
SELECT qyzycpk
for nIndex=3 to (cpzds-1)
   arr[nIndex,1]=FIELD(nIndex,'qyzycpk',1)
   arr[nIndex,2]='qyzycpk.'+FIELD(nIndex,'qyzycpk')
   thisform.list2.additem(arr(nIndex,1))
endfor
    然后,将list2的InteractivChange事件代码修改为:
xszd=''
FOR xh=1 TO THISFORM.LIST2.LISTCOUNT
   IF thisform.list2.Selected(xh)
     xszd=arr[thisform.list2.ListIndex,2]+IIF(XH<THISFORM.LIST2.LISTCOUNT,[,],[])
   ENDIF
ENDFOR
运行过程中出现以下错误:


2013-01-28 17:35
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
得分:0 
改错了,循环不对。与其这样说,不如你把这两个表(带结构的测试数据)放上来写给你。

授人以渔,不授人以鱼。
2013-01-28 17:39
avceasy
Rank: 1
等 级:新手上路
帖 子:6
专家分:4
注 册:2013-1-26
得分:0 
应该是xszd变量的定义问题吧
2013-01-28 18:17
陶然愚者
Rank: 1
等 级:新手上路
帖 子:151
专家分:8
注 册:2012-12-13
得分:0 
回复 23楼 TonyDeng
2.1.1 企业基本信息表(QYJBXX.DBF)
表1 企业基本信息表数据结构
字段名    数据类型    宽度    可否为空    说明
JGDM    字符型    9    NOT NULL    企业代码(主键,不允许有重复记录)
JGMC    字符型    100    NOT NULL    企业名称
JGYWMC    字符型    70    NULL    企业英文名称
JGDZ    字符型    100    NOT NULL    企业地址
ZCH    字符型    31    NULL    注册号
JGLX    字符型    2    NOT NULL    企业类型(键盘录入或选择录入)
JJLX    字符型    3    NOT NULL    经济类型(键盘录入或选择录入)
JJHY    字符型    5    NOT NULL    经济行业(键盘录入或选择录入)
FDDBR    字符型    20    NOT NULL    法定代表人(或负责人)姓名
SFZHM    字符型    18    NOT NULL    法定代表人(或负责人)身份证号
YDDHHM    字符型    21    NULL    法人手机号码
XZQH    字符型    6    NOT NULL    行政区划代码(键盘录入或选择录入)
YZBM    字符型    6    NOT NULL    邮政编码
DHHM    字符型    21    NULL    电话号码
CZHM    字符型    21    NULL    传真号码
ZGRS    数值型    6    NOT NULL    职工人数
NCZ    数值型    8(2位小数)    NULL    年产值(万元,保留2位小数)
ZLTXRZ    字符型            质量管理体系认证
ZLTXRZRQ    日期型            质量管理体系认证通过时间
ZLTXRZQX    日期型            质量管理体系认证有效期
HJTXRZ    字符型            环境管理体系认证
HJTXRZRQ    日期型            环境管理体系认证通过时间
HJTXRZQX    日期型            环境管理体系认证有效期
BZHLHXW    字符型            标准化良好行为企业确认
BZHLHXWRQ    日期型            标准化良好行为企业确认时间
BZHLHXWQX    日期型            标准化良好行为企业确认有效期
URL    字符型    50    NULL    域名
EMALL    字符型    40    NULL    电子邮件地址
TXDZ    字符型    100    NULL    通信地址
TXYZBM    字符型    6    NULL    通信邮政编码
BZHGLJG    字符型    80    NULL    企业标准化管理机构名称
BZHGLRY    字符型    20    NULL    企业标准化管理机构负责人姓名
BRDHHM    字符型    21    NULL    企业标准化管理人员电话号码
KHYH    字符型    100    NULL    企业开户银行名称
YHZH    字符型    21    NULL    银行账号
DJRQ    日期型    8    NOT NULL    登记日期(默认为操作当前日期,可修改)
2.1.2 企业产品信息表(QYCPXX.DBF)
表2 企业产品信息表数据结构
字段名    数据类型    宽度    可否为空    说明
JGDM    字符型    9    NOT NULL    企业代码(外键,指向QYJBXX.DBF中的JGDM字段)
JGMC    字符型    100    NOT NULL    企业名称(外键,指向QYJBXX.DBF中的JGMC字段)
CPMC    字符型    100        产品名称
CPLB    字符型            产品类别(索引)
BZBH    字符型            标准编号(索引)
BZSXH    字符型            标准顺序号(索引)
BZFBNH    字符型            标准发布年号
BZMC    字符型            标准名称
BZDJ    字符型            标准等级(索引)
CBQK    字符型            采标情况
QSZH    字符型            生产许可证/QS编号
XKRQ    日期型            许可日期
XKQX    日期型            生产许可证/QS有效期限
CPRZ    字符型            产品认证证书编号
RZLB    字符型            产品认证类别
RZJG    字符型    100        认证机构名称
RZRQ    日期型            通过认证日期
RZQX    日期型            产品认证有效期限
MPCP    字符型            名牌产品(中国名牌或省名牌)
MPRQ    日期型            获得名牌时间
MPQX    日期型            名牌有效期限
2013-01-29 08:03
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
得分:0 
数据表呢
2013-01-29 08:21
陶然愚者
Rank: 1
等 级:新手上路
帖 子:151
专家分:8
注 册:2012-12-13
得分:0 
不方便发哦,内有太多数据。

[ 本帖最后由 陶然愚者 于 2013-1-29 15:11 编辑 ]
2013-01-29 08:51
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
得分:0 
2013-01-29 10:23



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-397769-1-1.html




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

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