PowerBuilder中如何实现DataWindow列值右移一位操作

内置函数说明 #

PowerBuilder 没有提供可直接实现DataWindow列值整体移位的原生函数，该需求需要手动编写遍历逻辑实现。

实现方案 #

核心逻辑必须遵循从最右侧列开始倒序遍历赋值的规则，如果从左往右遍历会导致前一列的值提前覆盖后一列的原值，最终所有列都会变成最左列的初始值。

逐行逐列赋值方案（适配小数据量场景） #

逻辑清晰易调试，适合数据行数少于1000行的场景：

long ll_row, ll_total_rows
integer li_col_idx, li_total_cols
any la_col_val

// 动态获取DataWindow总列数，无需硬编码30
li_total_cols = Integer(dw_1.Describe("DataWindow.Column.Count"))
ll_total_rows = dw_1.RowCount()
If ll_total_rows = 0 Or li_total_cols < 2 Then Return

// 逐行处理
For ll_row = 1 To ll_total_rows
    // 从最右列往左遍历，直到第2列
    For li_col_idx = li_total_cols To 2 Step -1
        // 读取前一列的值赋值给当前列
        la_col_val = dw_1.GetItemAny(ll_row, li_col_idx - 1)
        dw_1.SetItem(ll_row, li_col_idx, la_col_val)
    Next
    // 移位完成后最左列置空，不需要置空可删除本行
    SetNull(la_col_val)
    dw_1.SetItem(ll_row, 1, la_col_val)
Next

内存数组批量处理方案（适配大数据量场景） #

直接操作DataWindow的内存数据结构，比逐行调用GetItem/SetItem性能高5~10倍，适合万行以上数据量的场景：

long ll_row, ll_total_rows
integer li_col_idx, li_total_cols
any la_data[][]

// 一次性读取全量数据到二维数组
la_data = dw_1.Object.Data
ll_total_rows = UpperBound(la_data, 1)
li_total_cols = UpperBound(la_data, 2)
If ll_total_rows = 0 Or li_total_cols < 2 Then Return

// 在内存中完成移位操作
For ll_row = 1 To ll_total_rows
    For li_col_idx = li_total_cols To 2 Step -1
        la_data[ll_row, li_col_idx] = la_data[ll_row, li_col_idx - 1]
    Next
    // 最左列置空
    SetNull(la_data[ll_row, 1])
Next

// 移位结果一次性写回DataWindow
dw_1.Object.Data = la_data

注意事项 #

• 如果DataWindow存在隐藏列、列显示顺序被手动调整过的情况，不要直接用列序号遍历，需要先通过Describe获取每列的X属性（显示横坐标），按横坐标从大到小排序后得到真实的从右到左列顺序，再执行移位。
• 移位前请保证相邻列的数据类型兼容，比如字符串列赋值给字符串列、数字列赋值给数字列，否则会触发类型不匹配报错。

内容的提问来源于stack exchange，提问作者XLD_a