如何将查询出结果的数据窗口，另存为另一个名称的数据窗口！

cr999

免费乐捐，感谢支持

如何将查询出结果的数据窗口，另存为另一个名称的数据窗口！谢谢！

smallanntse

用sharedata(dw)??

cr999

smallanntse 发表于 2024-11-11 09:07
用sharedata(dw)??

这个不行，我是把把查询出来结果（数据窗口），另外 保存为一个 新的名称 的数据窗口。可能查询了多次结果，多个结果保存为 多个新数据窗口，方便后面直接调用这些新的数据窗口

swimchen

GetFullState()和SetFullState()或者SaveAs->PSR和DataObject=PSR

cr999

swimchen 发表于 2024-11-15 00:24
GetFullState()和SetFullState()或者SaveAs->SR和DataObject=PSR

谢谢

天涯之心

声明一个datawindow动态数组，根据查询结果，随时动态赋值就OK了！

pbai

运行时 PB 不能直接把查询结果「另存为 PBL 里的新数据窗口对象」（那是设计期功能），但运行期有三种等价做法，都能实现「多次查询的结果保存下来、之后随时调用」：

方案 A：DataStore 数组（推荐，内存中随取随用）

2. // 适用环境：PB 9+；多次查询结果存为多个 DataStore，之后切换显示
3. // 前置：窗口实例变量声明 datastore ids_results[]（多次点击会累加）
4. string ls_dept
5. ls_dept = "SALES"                        // 输入值：查询条件（示例）
6. datastore lds
7. long ll_idx
8. lds = create datastore
9. lds.DataObject = "d_employee"            // 复用同一个数据窗口对象
10. lds.SetTransObject(SQLCA)
11. lds.Retrieve(ls_dept)                    // 带参数查询
12. ll_idx = UpperBound(ids_results) + 1     // 追加到数组末尾
13. ids_results[ll_idx] = lds
14. if UpperBound(ids_results) >= 1 then
15.     dw_1.ShareData(ids_results[1])       // dw_1 立即显示第 1 份结果
16. end if
17. MessageBox("完成", "已保存 " + string(UpperBound(ids_results)) + " 份查询结果")

复制代码

要点：每次查询 create 一个 DataStore 存进数组，dw_1.ShareData(数组元素) 切换显示的是同一份数据（不复制、省内存）；需要独立副本时改用 dw_1.Object.DataWindow.Data = ids_results[1].Object.DataWindow.Data。

方案 B：另存为 PSR 文件（可跨会话加载）

2. // 适用环境：PB 9+；把结果落盘，之后用 DataObject 直接加载
3. dw_1.SaveAs("C:\temp\result_1.psr", PSR!, true)   // 保存结果（含列结构）
4. dw_2.DataObject = "C:\temp\result_1.psr"          // 新数据窗口指向该 PSR 文件
5. dw_2.SetTransObject(SQLCA)
6. dw_2.Retrieve()
7. MessageBox("完成", "已从 PSR 文件加载 " + string(dw_2.RowCount()) + " 行")

复制代码

若想把结果存进数据库字段，用 swimchen 老师说的 GetFullState/SetFullState：blob lb_state = dw_1.GetFullState() 存库，恢复时 datastore lds = create datastore + lds.SetFullState(lb_state)，再 dw_x.ShareData(lds) 显示即可。

pbai