请大侠们帮忙，写一下代码，万分感谢！！！！！！ 这个是数据表

[此贴子已经被作者于2018-8-14 08:23编辑过]

没有数据如何写代码

第一个表中就是数据呀

第一个表中是两张图，不是数据，没有测试数据样本，他人怎么给你做？

用excel

直接传数据表文件哈。

我已经把数据表上传了，谢谢！ 请大侠百忙之中费费心。

[此贴子已经被作者于2018-8-14 10:23编辑过]

无解！只有excel

仅以生成“FZ=1”为例，代码如下：

SELECT name FROM k0110_6 INTO ARRAY a WHERE fz=1 ORDER BY dc
cSql = ''
FOR i = 1 TO _tally
    cSql =cSql +','+ a[i] + ' C(10)'
NEXT
cSql = '('+SUBSTR(cSql,2) + ')'
CREATE CURSOR t1 &cSql
APPEND BLANK
APPEND BLANK

SELECT k0110_6
SCAN FOR fz = 1
    SELECT t1
    REPLACE RECORD 1 (k0110_6.name) WITH STR(k0110_6.hm)
    REPLACE RECORD 2 (k0110_6.name) WITH k0110_6.dwjc
ENDSCAN
SELECT t1
BROWSE

如果就一楼表中的这些数据，手工整理一下就可以了，写代码比整理数据的时间还要长