一、明确需求与环境准备

首先，确保你的应用程序已经集成了数据窗口控件，并且该控件已绑定到数据库表或其他数据源。了解当前记录的位置以及如何安全地移动到相邻记录是实现这一功能的基础。

二、编写逻辑代码

1. 获取当前记录编号

在PB中，可以通过`DataWindow`对象的`GetRow()`方法来获取当前显示的记录号。例如：

```powerbuilder

integer current_row = dw_1.GetRow()

```

这里假设`dw_1`是你使用的数据窗口名称。

2. 移动至上一条记录

要移动至上一条记录，可以使用`SetRow()`方法并将参数设置为当前行号减去1。需要注意的是，在尝试访问第一条记录之前应检查是否还有前一条记录存在：

```powerbuilder

if current_row > 1 then

dw_1.SetRow(current_row - 1)

else

MessageBox("提示", "已经是第一条记录了！")

endif

```

3. 移动至下一条记录

类似地，为了跳转到下一条记录，将当前行号加1后传入`SetRow()`方法。同样地，在尝试访问最后一条记录之后应该给予用户反馈：

```powerbuilder

integer total_rows = dw_1.RowCount()

if current_row < total_rows then

dw_1.SetRow(current_row + 1)

else

MessageBox("提示", "已经是最后一条记录了！")

endif

```

三、优化用户体验

- 边界条件处理：如上述示例所示，在到达数据集的首尾时提供友好的用户提示。

- 异常处理：对于可能发生的异常情况（如网络中断导致的数据加载失败等），需要有相应的错误处理机制。

- 界面设计：考虑添加快捷键或按钮图标来增强用户的交互体验。

四、完整示例代码

以下是一个完整的脚本示例，整合了上述所有要点：

```powerbuilder

// 获取当前行号

integer current_row = dw_1.GetRow()

// 检查是否还有上一条记录

if current_row > 1 then

dw_1.SetRow(current_row - 1)

else

MessageBox("提示", "已经是第一条记录了！")

endif

// 检查是否还有下一条记录

integer total_rows = dw_1.RowCount()

if current_row < total_rows then

dw_1.SetRow(current_row + 1)

else

MessageBox("提示", "已经是最后一条记录了！")

endif

```

通过以上步骤，你可以轻松地在PowerBuilder应用程序中实现“上一条”和“下一条”的功能。记得根据实际项目需求调整具体的实现细节，比如动态更新UI状态或者处理更复杂的业务逻辑。