你的代码执行后没有报错，但目标字段始终为空，核心是几个细节逻辑和语法问题导致的，我们一步步拆解解决：

1. WHERE子句的空值判断错误 #

你用where year=''来匹配空字段，但DBF对空值的处理和你预期的不一样：

• 如果year是字符型字段：DBF里的空值通常存储为NULL而非空字符串，这时候应该用WHERE year IS NULL或者WHERE TRIM(year) = ''（如果字段是空白字符）
• 如果year是数值型字段：空值是NULL，不能用字符串空值判断，必须用WHERE year IS NULL

另外，直接拼接字符串写SQL不仅容易出现语法错误，还存在SQL注入风险，建议用参数化查询替代。

2. 无效的FDQuery1.Active调用 #

FDQuery1.Active是一个布尔属性，用来判断数据集是否处于激活状态，你直接写FDQuery1.Active;是完全没有效果的。更新语句不需要先打开数据集，直接执行ExecSql即可。

3. OpenDialog文件名判断逻辑错误 #

在Delphi中，当用户取消文件选择时，OpenDialog1.FileName返回的是空字符串''，而非null，所以判断条件应该改成if OpenDialog1.FileName <> ''。

修改后的完整代码 #

procedure TForm1.Button1Click(Sender: TObject);
var
  year: string;
  pogr_d: string;
begin
  pogr_d := '';
  year := FormatDateTime('yyyy', DateTimePicker1.Date); // 无需Copy，FormatDateTime直接返回4位年份
  Label1.Caption := year;
  Label2.Caption := pogr_d;

  if OpenDialog1.Execute then
  begin
    if OpenDialog1.FileName <> '' then
    begin
      TextReader1.FileName := OpenDialog1.FileName;
      try
        ImportFromText.Execute;
        
        FDQuery1.Close;
        // 使用参数化查询，避免拼接错误和注入风险
        FDQuery1.SQL.Text := 'UPDATE g_rabn.dbf SET year = :YearVal WHERE year IS NULL';
        FDQuery1.ParamByName('YearVal').AsString := year;
        FDQuery1.ExecSql;
        
        // 可选：添加更新行数提示，确认操作生效
        ShowMessage(Format('成功更新 %d 条记录', [FDQuery1.RowsAffected]));
      except
        on E: Exception do
          ShowMessage('更新失败：' + E.Message);
      end;
    end;
  end;
end;

额外优化建议 #

• 确认year字段的数据类型：如果是数值型（如Integer），把ParamByName('YearVal').AsString改成ParamByName('YearVal').AsInteger := StrToInt(year)
• 执行更新后可以重新打开数据集验证结果：FDQuery1.SQL.Text := 'SELECT * FROM g_rabn.dbf'; FDQuery1.Open;
• 检查ImportFromText执行后，g_rabn.dbf是否真的被正确导入、是否存在待更新的记录

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