吹水佬老师，你好!
发过去一个表，我的想法是：
表中H1字段（列）中的数字
在h1_0到h1_9字段中找到其出现次数，将次数值放到同一行cs1_1中；
在h2_0到h2_9字段中找到其出现次数，将次数值放到同一行cs1_2中；
在h3_0到h3_9字段中找到其出现次数，将次数值放到同一行cs1_3中；

表中H2字段（列）中的数字
在h1_0到h1_9字段中找到其出现次数，将次数值放到同一行cs2_1中；
在h2_0到h2_9字段中找到其出现次数，将次数值放到同一行cs2_2中；
在h3_0到h3_9字段中找到其出现次数，将次数值放到同一行cs2_3中；

表中H3字段（列）中的数字
在h1_0到h1_9字段中找到其出现次数，将次数值放到同一行cs3_1中；
在h2_0到h2_9字段中找到其出现次数，将次数值放到同一行cs3_2中；
在h3_0到h3_9字段中找到其出现次数，将次数值放到同一行cs3_3中；

例：表最后一行
  h1=3
3在h1_0到h1_9中是h1_3，其数值是4，将4放到cs1_1；
3在h2_0到h2_9中是h2_3，其数值是2，将2放到cs1_2；
3在h3_0到h3_9中是h3_3，其数值是1，将1放到cs1_3；
  h2=5
5在h1_0到h1_9中是h1_5，其数值是1，将1放到cs2_1；
5在h2_0到h2_9中是h2_5，其数值是1，将1放到cs2_2；
5在h3_0到h3_9中是h3_5，其数值是1，将1放到cs2_3；
 h3=9
9在h1_0到h1_9中是h1_9，其数值是2，将2放到cs3_1；
9在h2_0到h2_9中是h2_9，其数值是0，将0放到cs3_2；
9在h3_0到h3_9中是h3_9，其数值是2，将2放到cs3_3；

表后cs1_1到cs3_3字段中的16行数值是我手动添加的，可作为参考。

再次感谢老师帮忙！

cs字头的字段宽度不够，都改为3。
大概意思，未校对。
USE 表1
REPLACE cs1_1 WITH fun(1,1), cs1_2 WITH fun(1,2), cs1_3 WITH fun(1,3),;
    cs2_1 WITH fun(2,1), cs2_2 WITH fun(2,2), cs2_3 WITH fun(2,3),;
    cs3_1 WITH fun(3,1), cs3_2 WITH fun(3,2), cs3_3 WITH fun(3,3) ALL
SELECT * FROM 表1
RETURN

FUNCTION fun(m,n)
    RETURN EVALUATE("H"+TRANSFORM(n)+"_"+TRANSFORM(EVALUATE("H"+TRANSFORM(m))))
ENDFUNC

[此贴子已经被作者于2020-1-8 20:39编辑过]

之前的没有错。这次是进一步的分析，和之前的要求不一样。
之前的是：0-9在前15行出现次数，这次是：h1,h2,h3三列中的3个数，各自在三列中出现次数，且单独列出，以方便单独计算。

close databases 
use 表1
blank fields cs1_1, cs1_2, cs1_3, cs2_1, cs2_2, cs2_3, cs3_1, cs3_2, cs3_3 all
scan for recno() > 10
    replace cs1_1 with evaluate("H1_" + str(h1,1)), cs1_2 with evaluate("H2_" + str(h1,1)), cs1_3 with evaluate("H3_" + str(h1,1)),;
        cs2_1 with evaluate("H1_" + str(h2,1)), cs2_2 with evaluate("H2_" + str(h2,1)), cs2_3 with evaluate("H3_" + str(h2,1)),;
        cs3_1 with evaluate("H1_" + str(h3,1)), cs3_2 with evaluate("H2_" + str(h3,1)), cs3_3 with evaluate("H3_" + str(h3,1))
endscan
browse