表内容统计解决办法
发布时间:2010-05-24 21:54:03 文章来源:www.iduyao.cn 采编人员:星星草
表内容统计
有表A,字段为文本型
字段1 字段2 字段3 字段4
A B C D
B B C C
C C C C
E F G H
要求得出:
字段1 字段2 字段3 字段4 统计
A B C D 1A1B1C1D
B B C C 2B2C
C C C C 4C
E F G H 1E1F1G1H
做何做?谢谢!
------解决方案--------------------
scan
iA=0
iB=0
iC=0
iD=0
for i=1 to fcount()
f=field(i)
do case
case "A "=&f
iA = iA + 1
case "B "=&f
iB = iB + 1
case "C "=&f
iC = iC + 1
case "D "=&f
iD = iD + 1
endcase
endfor
f=allt(str(iA))+ "A "+allt(str(iB))+ "B "+allt(str(iC))+ "C "+allt(str(iD))+ "D "
repl 统计 with f
endscan
------解决方案--------------------
VFP9:
SELECT A.*,RR.ZD1 FROM TG A INNER JOIN (;
SELECT ID,STRTRAN(;
IIF(VAL(A1)> 0,A1+ 'A ', ' ')+IIF(VAL(B1)> 0,B1+ 'B ', ' ')+;
IIF(VAL(C1)> 0,C1+ 'C ', ' ')+;
IIF(VAL(D1)> 0,D1+ 'D ', ' ')+;
IIF(VAL(E1)> 0,E1+ 'E ', ' ')+;
IIF(VAL(F1)> 0,F1+ 'F ', ' ')+;
IIF(VAL(G1)> 0,G1+ 'G ', ' ')+;
IIF(VAL(H1)> 0,H1+ 'H ', ' '), ' ', ' ') AS ZD1;
,* FROM (;
SELECT ID,;
TRIM(STR(SUM(OCCURS( 'A ',ZD)))) AS A1,;
TRIM(STR(SUM(OCCURS( 'B ',ZD)))) AS B1,;
TRIM(STR(SUM(OCCURS( 'C ',ZD)))) AS C1,;
TRIM(STR(SUM(OCCURS( 'D ',ZD)))) AS D1,;
TRIM(STR(SUM(OCCURS( 'E ',ZD)))) AS E1,;
TRIM(STR(SUM(OCCURS( 'F ',ZD)))) AS F1,;
TRIM(STR(SUM(OCCURS( 'G ',ZD)))) AS G1,;
TRIM(STR(SUM(OCCURS( 'H ',ZD)))) AS H1;
FROM ;
(SELECT ID,TRIM(a1)+TRIM(A2)+TRIM(A3)+TRIM(A4) AS ZD FROM TG) G;
GROUP BY ID) F) RR ;
ON A.ID=RR.ID_A
浠ヤ笅鍙互鐢熸垚鑻ュ共涓存椂琛ㄥ啀杩炴帴
------解决方案--------------------
lcString1= 'SELECT *,SPACE(254) AS 统计, '
USE TT
FOR I=1 TO FCOUNT()
lcString1=lcString1+ 'ALLTRIM( '+FIELD(I)+ ')+ '
ENDFOR
lcString1=LEFT(lcString1,LEN(lcString1)-1)+ ' AS 统计用 INTO TABLE 目标表 FROM 表A '
&lcString1
SELECT 目标表
SCAN
J=0
FOR I=1 TO FCOUNT()-2
lcString2=ALLTRIM(EVALUATE(FIELD(I)))
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
菜鸟求一句命令
我做VC的,没做过VFP,完全不懂,帮人问一句命令,谢谢各位大牛们帮忙。
“我有两张表,称为A表,B表,其中B表数据很多,我现在...
-
求助:实现grid修改后直接后直接更新到数据表里
各位道友,小弟有两个问题
1。如何实现在grid表格里直接修改数据;
2。修改的数据可直...
-
请问treeview 里面如何选择性展开其中某树枝及其获得焦点?
请问如何在treeview里面,如何实现选择性展开其中的某枝,原本是全部收起来...
-
vfp中treeview控件的用法
我在VFP中使用了treeview控件,我对treeview中的某一个节点的文本修改了,怎么在treeview窗口中进行就更。
...
-
求编排考号问题
需求是这样的,如1年级有8个班,那么考号编排规则是:第1个班的第一个学生考号为1号,第2个班的第一个学生考号为2号,以此...
-
大家讨论,对现有vfp6.0产品只升级为sql server数据库有必要吗?
功能保留原来 只是数据库变化
我本人觉得会丧失很多vfp 本身文...
-
表单中的出错,第一次遇到
VFP9.0中新建了一个表单
表单中,增加一个command1,使其width=25
然后,将此按钮,复制150个出来. (此时...
-
VFP 如何做一个类似word控件?
如题。
类似于电子病历的那种控件。可以像word一样的编辑文件、表格、图片等
可以直接取数据库的数...
-
vfp使用Msxml2.ServerXMLHTTP的乱码问题
oo = = newObject('Msxml2.ServerXMLHTTP')
oo.open('post','http://localhost/',.f.)
o...
-
表中定位 如下 记录 seek办不到
表结构
dlh fb
100 5
110 2
112 3
........
假如 我想查找 dl...