Delphi VCL+SQLite3应用：DBCtrlGrid选中记录定位失效求助

问题核心 #

点击主窗体按钮后，目标数据集appts始终跳转到最后一条记录，而非TDBCtrlGrid选中的对应apptID记录，两种写法均未达到预期效果。

失败原因分析 #

1. 数据类型不匹配：apptID为整数类型，但两种写法都将其转为字符串传递给Locate，导致定位条件不匹配，Locate执行失败，数据集停留在原有位置（最后一条记录）。
2. 数据集状态错误：第二种写法先调用Edit进入编辑状态，再执行Locate，编辑状态下数据集的定位行为会异常，无法正确跳转。
3. 未校验定位结果：未判断Locate是否执行成功，无法及时发现定位失败的问题。

修正后的代码 #

procedure TfrmMain.btnAddApptClick(Sender: TObject);
var
  TargetApptID: Integer;
begin
  // 获取TDBCtrlGrid选中记录的apptID（确保类型为整数）
  TargetApptID := MMData.apptsQry.FieldByName('apptID').AsInteger;

  // 先将appts数据集恢复到浏览状态，避免编辑状态干扰定位
  if MMData.appts.State in [dsEdit, dsInsert] then
    MMData.appts.Post;

  // 执行定位，使用与字段匹配的整数类型参数，同时校验结果
  if MMData.appts.Locate('apptID', TargetApptID, [loCaseInsensitive]) then
  begin
    Editing := True;
    MMData.appts.Edit;
    frmAppts.ShowModal;
  end
  else
    ShowMessage('未找到对应预约记录');
end;

额外排查要点 #

• 确认索引存在：确保SQLite的appts表中apptID字段是主键或已建立索引，无索引会导致Locate效率低下甚至执行异常。
• 校验选中记录ID：在按钮事件中临时添加ShowMessage(IntToStr(TargetApptID))，确认获取的apptID确实是TDBCtrlGrid选中行的ID。
• 检查子窗体绑定：确认frmAppts的数据控件绑定的是MMData.appts数据集，确保子窗体打开时显示的是定位后的记录。

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