图片附件: 游客没有浏览图片的权限,请
登录 或
注册
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
数据还是有错,你看一下程序哪里有错,现在是统计不完全
图1中有14个双飞,程序统计出来才11个,另外统计还有错,没得24双飞,程序也统计出来了,麻烦看一下
程序代码:
cTemp = Sys(2015)
Create Cursor (cTemp) (code V(4), cnt I)
cFlds = '00,01,02,03,04,05,06,07,08,09' ;
+ ',11,12,13,14,15,16,17,18,19' ;
+ ',22,23,24,25,26,27,28,29' ;
+ ',33,34,35,36,37,38,39' ;
+ ',44,45,46,47,48,49' ;
+ ',55,56,57,58,59' ;
+ ',66,67,68,69' ;
+ ',77,78,79' ;
+ ',88,89 ';
+ ',99'
For ii = 1 to ALines(aFlds, cFlds, 1+4, ',')
Insert into (cTemp) (code) Values (aFlds[ii])
EndFor
Select 历史同期查询
Scan all
Scatter name oRec Fields 期号,组选号
c双飞号 = Chrtran('XY,XZ,YZ', 'XYZ', m.oRec.组选号)
For jj = ALines(a双飞号, c双飞号, 1+4, ',') to 2 step -1
If a双飞号[jj] == a双飞号[jj-1] && 去重
a双飞号[jj] = ''
EndIf
EndFor
For jj = 1 to Alen(a双飞号)
If !Empty(a双飞号[jj])
Insert into (cTemp) (code, cnt) Values (a双飞号[jj], 1)
EndIf
EndFor
EndScan
SELECT CNT FROM (Select code, Sum(cnt) as cnt from (cTemp) group by code ORDER BY CODE) A into array a双飞统计
我删除了一些数据库字段,但是应该和字段没关系吧!组选号字段还是在的,这是必须要的字段
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
[此贴子已经被作者于2023-4-23 17:15编辑过]