2. 开发问题
  3. 【求助答疑】合并数据表命令的疑问，请会的朋友指点一下，谢谢！

【求助答疑】合并数据表命令的疑问，请会的朋友指点一下，谢谢！

Kittle 2021-4-10 831

Dim objDatatable_a = ""

Dim title_a = ["西红柿", "土豆"]
Dim data_a = [['1', '2'], ['1', '2']]
objDatatable_a = Datatable.BuildDataTable(data_a,title_a)

Dim objDatatable_b = ""
Dim title_b = ["南瓜", "黄瓜"]
Dim data_b = [['3', '4'], ['3', '4']]
objDatatable_b = Datatable.BuildDataTable(data_b,title_b)

Dim objDatatable_c = Datatable.MergeDataTable(objDatatable_a,objDatatable_b,"outer",["西红柿", "土豆"],["南瓜", "黄瓜"],False)
TracePrint "目前合成结果："
TracePrint(objDatatable_c)

Dim objDatatable_d = ""
Dim title_d = ["西红柿", "土豆", "南瓜", "黄瓜"]
Dim data_d = [['1','2','3','4'], ['1','2','3','4']]
objDatatable_d = Datatable.BuildDataTable(data_d, title_d)
TracePrint "希望合成结果"
TracePrint objDatatable_d


最新回复 (2)
  • 王榕星 2021-4-10
    2楼
    你的用法是错的，列名不一样所以合并后原本2列+2列变成4列，列名相同合并后2行变成4行，你要的其实是增加列的功能，一次加1列。

    Dim objDatatable_a = ""

    Dim title_a = ["西红柿", "土豆"]
    Dim data_a = [['1', '2'], ['1', '2']]
    objDatatable_a = Datatable.BuildDataTable(data_a,title_a)
    TracePrint objDatatable_a

    Dim objDatatable_b = ""
    Dim title_b = ["西红柿", "土豆"]
    Dim data_b = [['3', '4'], ['3', '4']]
    objDatatable_b = Datatable.BuildDataTable(data_b,title_b)


    objDatatable_c = Datatable.MergeDataTable(objDatatable_a,objDatatable_b,"outer",["西红柿", "土豆"],["西红柿", "土豆"],False)

    TracePrint "增加行"
    TracePrint(objDatatable_c)


    //增加列
    Datatable.AddColumn(objDatatable_a,"南瓜",Null,['3', '3'])
    TracePrint objDatatable_a
  • Kittle 2021-4-12
    3楼
    感谢这位朋友，增加列的命令我是知道的，但是我想解决的问题就是不同列名的合并，因为指南手册上没有写清必须同列名，我左试右试都达不到效果。
返回
发新帖