每天两人值班,如何计算每人值班天数?
现有下列表格文件,如何计算每人值班天数?并将它写入表文件Zbts.dbf中【字段名为:值班人员 C(10),值班天数 N(4)】请高手赐教,万分感谢!!!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