程序很难从你XM字段中取出公式来，何况还要审核结果呢
如果你一定要这样做，你最起码要再有1个字段，用来存放公式的。比如字段，GS,里面存的是每行的计算公式，如第11行，按职业类型分 =71+72+73+74+75
所以，一开始，我就说，你这样设计表，有严重的缺陷
你这个表，只能手工计算，不利于电脑公式计算，就算能，也要有像吹斑竹这样功力深厚的人才能做到

[此贴子已经被作者于2016-3-11 13:43编辑过]

将计算表达式用一个字段来存放，这样比较清晰好处理。

XH  XM                      DM  JS         L1
--  ----------------------  --  ---------  ---
 1  一、从业人员                01=00=22  

 2  （一）从业人员期末人数  01  05+06+07
......

没错

设计思路是这样的：分项有数据了，点击计算命令后 汇总行的数据自动生成。并审核逻辑关系。

1. 应该增加一个公式字段 gs c(30)，将 xm 字段中的公式移至 gs，如：[01]=[05]+[06]+[07]
2. 公式一定要合法，用真实数据去替换行代码后，应返回一个逻辑值，为真，则验证通过，为假，则不通过。
   因此，06≤01 应改为 [06]<=[01]，01=00=22 应改为 [01]=[00] AND [01]=[22]
4. 检测代码如下：

CLOSE TABLES ALL
LOCAL cStr,nRec,cCode,cValue,lErr
USE rsb
SCAN FOR !EMPTY(gs)
    cStr = ALLTRIM(gs)
    nRec = RECNO()
    SCAN FOR !EMPTY(dm) AND dm # '---'
        m.cCode = '['+ALLTRIM(dm)+']'
        m.cValue = TRANSFORM(L1)
        cStr = STRTRAN(cStr,m.cCode,m.cValue)
    ENDSCAN
    GO nRec
    DO CASE
    CASE TYPE(cStr) # 'L'
        MESSAGEBOX('公式('+ALLTRIM(gs)+')有错误！('+cStr+')')
        lErr = .t.
        RETURN
    CASE !EVALUATE(cStr)
        MESSAGEBOX('公式('+ALLTRIM(gs)+')未通过验证！（'+cStr+'）')
        lErr = .t.
        RETURN
    ENDCASE
ENDSCAN
IF !lErr
    MESSAGEBOX('验证全面通过！')
ENDIF

通过编程是可以解决这个问题

此类程序，关键是看你的思路。我的基本思路是：用真实值替换公式中的行号，然后判断整个表达式的值是否为真，为真则通过，反之则不通过。若表达式的值不是逻辑型，则公式有误。上述代码都是围绕这个思路展开的。

XM中的公式是用来提示说明行与行之间的数据关系的，实际情况应做到  L1字段，第三行：填入50人，第四行40人，第五行30人，则第二行生成120
第一步计算，第二步审核 来确保数据正确性。

[此贴子已经被作者于2016-3-11 16:35编辑过]

上点原始数据来，便于测试

纸上谈兵是没用的