树状JSON转成父子表展开，不到二十行代码搞定它！

    [{
        "ddh": "001",
        "rows": [
            {
                "code": "x001"
            },
            {
                "code": "x002"
            }
        ]
    },
    {
        "ddh": "002",
        "rows": [
            {
                "code": "x003"
            },
            {
                "code": "x004"
            }
        ]
    }
]

cResult=上面的JSON
Create Cursor  tb2 (ddh c(10),Code c(10))  &&创建子表结构

oReader=Newobject("QiyuJsonReader","QiyuJsonReader.prg")
oReader.cursorstruct="ddh c(10),rows c(240)"
oReader.Alias="tb1"  &&临时表名
*参数说明:JSON串,缓冲表模式(0 自动  1 新增  2 编辑 3 删除),键值是数组是否转换成JSON字符串
oReader.parsecursor(cResult,0,.T.) 

Scan
  cDdh=ddh
  oReader=Newobject("QiyuJsonReader","QiyuJsonReader.prg")
  oReader.cursorstruct="code c(10)"
  oReader.Alias="tb_tmp"  &&临时表名
  *参数说明:JSON串,缓冲表模式(0 自动  1 新增  2 编辑 3 删除),键值是数组是否转换成JSON字符串
  If oReader.parsecursor(Rows,0,.T.) <0
      Exit
  Endif
  Insert Into tb2(ddh,Code) Select cDdh,Code From tb_tmp With (Buffering = .T.)
Endscan