Delphi错误数据集未处于插入或编辑模式

Question

目标:

1. 点击 TRxDBCombo 上的按钮调用搜索框
2. 从搜索框中选择记录时，结果将设置为 TComboEditBox 的字段值，并发布在 TRxMemoryData 数据集中

错误:

第二次调用此函数时出现数据集未处于插入或编辑模式

TDBEditBox1.SetFocus;
Form_Search:= TForm_Search.Create(Application);
with Form_Search do
  Begin
    showmodal;
    //Get Result from Database
    if trim(TempResult) <> '' then
      Begin
        TDBEditBox1.Field.Value := MResult;
      End;
  End;

设置包括:

1. 数据源连接到 TDataSource 的 TJvDBGrid
2. TDataSource 连接到 TRxMemoryData
3. TRxDBComboEdit，其数据源设置为上述步骤 2 中的 TDataSource

请帮忙

Answer 1

由于以下行而出现错误:TDBEditBox1.Field.Value := MResult; 在这一行，您的数据集未处于插入或编辑模式。您可以添加以下检查以避免此错误:

if not (TDBEditBox1.DataSource.DataSet.State in [dsEdit, dsInsert]) then
begin
  TDBEditBox1.DataSource.DataSet.Edit;
  // Or TDBEditBox1. DataSource.DataSet.Insert; depending on the operation you are doing (Edit or Insert) 
end;
TDBEditBox1.Field.Value := MResult;