每位员工的满意，不满意数量  一次性统计出来（效果如右图）

[此贴子已经被作者于2021-3-22 11:23编辑过]

有数据才能写出代码

太感谢了太感谢了太感谢了太感谢了太感谢了太感谢了，程序正常。但是不清楚有些代码的的意思。

[此贴子已经被作者于2021-3-22 22:16编辑过]

    SET ENGINEBEHAVIOR 70
      SET SAFETY OFF
      
      CLOSE DATABASES
      SELECT 0
      USE pyk ALIAS kg             &pyk  kg 什么意思
      SELECT 0
      USE pytj ALIAS bmk            &pytj  是评议统计  bmk 什么意思
      SCAN
        c_ygxm=ALLTRIM(bmk.ygxm)     &ygxm  员工姓名
        SELECT sum(IIF(EVALUATE(c_ygxm)='很满意',1,0)) as py1,;  & py1 是什么意思
               sum(IIF(EVALUATE(c_ygxm)='满意',1,0)) as py2,;
               sum(IIF(EVALUATE(c_ygxm)='不满意',1,0)) as py3 from kg into cursor tmp
              
        SELECT bmk
        REPLACE bmk.py1 WITH tmp.py1
        REPLACE bmk.py2 WITH tmp.py2
        REPLACE bmk.py3 WITH tmp.py3
      ENDSCAN
      

SET ENGINEBEHAVIOR 70
      SET SAFETY OFF
      
      CLOSE DATABASES
      SELECT 0
      USE pyk ALIAS kg             &pyk  kg 什么意思
      SELECT 0
      USE pytj ALIAS bmk            &pytj  是评议统计  bmk 什么意思
      SCAN
        c_ygxm=ALLTRIM(bmk.ygxm)     &ygxm  员工姓名
        SELECT sum(IIF(EVALUATE(c_ygxm)='很满意',1,0)) as py1,; & py1 是什么意思
               sum(IIF(EVALUATE(c_ygxm)='满意',1,0)) as py2,;
               sum(IIF(EVALUATE(c_ygxm)='不满意',1,0)) as py3 from kg into cursor tmp
              
        SELECT bmk
        REPLACE bmk.py1 WITH tmp.py1
        REPLACE bmk.py2 WITH tmp.py2
        REPLACE bmk.py3 WITH tmp.py3
      ENDSCAN

[此贴子已经被作者于2021-3-22 22:02编辑过]

借用了 WengJl 的表

CLOSE DATABASES
USE pyk IN 0
AFIELDS(lazdm)
LOCAL latj[ALEN(lazdm, 1), 4]
FOR lnj = 1 TO ALEN(latj, 1)
    latj[lnj, 2] = 0
    latj[lnj, 3] = 0
    latj[lnj, 4] = 0
ENDFOR
FOR lnj = 1 TO ALEN(lazdm, 1)
    latj[lnj, 1] = FIELD(lnj)
    SCAN 
        IF ALLTRIM(EVALUATE(FIELD(lnj))) == "跳过"
            LOOP 
        ENDIF 
        DO CASE
            CASE ALLTRIM(EVALUATE(FIELD(lnj))) == "很满意"
                latj[lnj, 2] = latj[lnj, 2] + 1
            CASE ALLTRIM(EVALUATE(FIELD(lnj))) == "满意"
                latj[lnj, 3] = latj[lnj, 3] + 1
            CASE ALLTRIM(EVALUATE(FIELD(lnj))) == "不满意"
                latj[lnj, 4] = latj[lnj, 4] + 1
        ENDCASE
    ENDSCAN
ENDFOR
SET ORDER TO 
CREATE CURSOR tj (部门 C(10), 很满意 N(3), 满意 N(3), 不满意 N(3))
APPEND FROM ARRAY latj
BROWSE 

代码构思别具一格，狐功深厚，佩服！
USE pytj ALIAS bmk
SCAN
......
ENDSCAN

现在是不是到夜霄的时间了，楼主........

给表起个别名而已，本人习惯，要写入的用BMK，输出的用其他。
PY　指评议
py1 指很满意。你也可以用其他字母表示，或用中文表示。不用中文是因为可省去输入法的不断切换之麻烦

[此贴子已经被作者于2021-3-23 16:39编辑过]