2

我有 2 个 DataStore、lds_header 和 lds_detail 的组合，它们在 1 个 DataWindow 中获取数据。我已经根据标题的列设置了 DataWindow 的列。

lds_header has 10 columns to export for header segment - holds in first row only
lds_detail has 5 columns to export for detail segment - holds in second row and so on.
DataWindow has 10 columns.

生成 .TXT（制表符分隔）文件的时间。详细信息段继承了另外 5 列。现在我的问题是，如何在使用 DataWindow Save AS 方法时删除详细信息段的不必要列？

实际上，我能够使用 FileOpen 方法提供预期的输出，然后使用字符串连接，但 FileOpen 方法在保存字符串值方面存在限制，这就是我想在 DataWindow SaveAs 方法中进行导出的原因。

4

3 回答 3

2

仅导出 DataWindow 中的某些列的最简单方法是设置数据源，以便您想要的列是前 N 列。我将使用所有列 dw_all 调用 DataWindow。接下来将 dw_all 保存为 dw_some，然后从数据源中删除 N 之后的列。然后，假设 dw_all 在 ds_all 中并且有您的数据，并且 dw_some 在 ds_some 中并且为空：

ll_rows = ds_all.rowcount()
ds_some.object.data[1, 1,ll_rows,N] = ds_all.object.data[1,1,ll_rows,N]

您可以更改 ds_all 的开始列和结束列，以将列块复制到中间或最后 N 列之外，但是当您制作 dw_some 时，您必须注意列的类型和大小，而执行另存为并删除 N 之后的列几乎是万无一失的。

最后，您可以使用不匹配的 DataWindows 并一次复制第一列的列和块。我希望下面的示例说明了为什么按照我推荐的方式制作 DataWindows 会更好。判断这是否正确的唯一方法是仔细检查两个 DataWindows 中的数据源：

dw_excel.Object.Data[1,1,il_rows,1]     = dw_report.Object.Data[1,1,il_rows,1] 
dw_excel.Object.Data[1,2,il_rows,3]     = dw_report.Object.Data[1,3,il_rows,4] 
dw_excel.Object.Data[1,4,il_rows,12]    = dw_report.Object.Data[1,5,il_rows,13] 
dw_excel.Object.Data[1,13,il_rows,13]   = dw_report.Object.Data[1,15,il_rows,15]
dw_excel.Object.Data[1,14,il_rows,14]   = dw_report.Object.Data[1,25,il_rows,25]
dw_excel.Object.Data[1,15,il_rows,20]   = dw_report.Object.Data[1,17,il_rows,22]

注意：在尝试使用此类数据表达式之前，请确保行数 > 0。

于 2013-06-06T20:25:26.943 回答
2

我试图弄清楚如何做上述问题。这行脚本dw_Outbound.Modify("DESTROY i")返回错误的语法。如何在不删除数据的情况下删除列？

FOR ll_outbound = 2 TO dw_Outbound.RowCount()
            IF dw_Outbound.Object.A[ll_outbound] = 'D' THEN 
                ls_column = dw_Outbound.Object.DataWindow.Column.Count
                FOR li_column = 9 TO Integer(ls_Column)
                    dw_Outbound.Modify("DESTROY i")                 
                    dw_Outbound.Modify("DESTROY j") 
                    dw_Outbound.Modify("DESTROY k") 
                    dw_Outbound.Modify("DESTROY l") 
                    dw_Outbound.Modify("DESTROY m") 
                    dw_Outbound.Modify("DESTROY n") 
                    dw_Outbound.Modify("DESTROY o") 
                    dw_Outbound.Modify("DESTROY p") 
                    dw_Outbound.Modify("DESTROY q") 
                    dw_Outbound.Modify("DESTROY r") 
                    dw_Outbound.Modify("DESTROY s") 
                    dw_Outbound.Modify("DESTROY t") 
                NEXT
            END IF
        NEXT
于 2013-06-06T05:25:53.443 回答
0

我认为，如果您使用 SaveAs 方法，则将导出所有列，即选择列表中的列。不管它是否可见。使用销毁和创建，您只需为选择列表中的列创建一个控件。如果您不想导出多列或想要重命名列的“标签”，我认为您需要一个单独的数据窗口，其中包含要导出的列，并且您需要将数据从原始数据窗口复制到“导出“数据窗口。这是你的问题吗？

兄弟。加博尔

于 2013-06-06T07:11:18.883 回答