只弄了5条数据供测试
程序代码:
CREATE CURSOR t1 (值班日期 C(6), 值班人员 C(10))
INSERT INTO t1 VALUES ("3月1日", "张飞、李逵")
INSERT INTO t1 VALUES ("3月2日", "曹操、刘备")
INSERT INTO t1 VALUES ("3月3日", "李逵、刘备")
INSERT INTO t1 VALUES ("3月4日", "孙权、曹操")
INSERT INTO t1 VALUES ("3月5日", "李逵、孙权")
CREATE CURSOR zbts (值班人员 C(10), 值班天数 N(4))
INDEX ON 值班人员 TAG sy
SELECT t1
SCAN
FOR ln = 1 TO ALINES(laStr, 值班人员, 1+4, "、")
IF SEEK(laStr(ln), "zbts", "sy") = .T.
REPLACE 值班天数 WITH 值班天数 + 1 IN zbts
ELSE
INSERT INTO zbts VALUES (laStr(ln), 1)
ENDIF
ENDFOR
ENDSCAN
SELECT zbts
DELETE TAG sy
BROWSE
结果
图片附件: 游客没有浏览图片的权限,请
登录 或
注册