if DBGrid2.SelectedField.FieldName='ItemNo' thenif dbgrid2.SelectedField.Value='Y' thenif dbgrid2.SelectedField.Text='Y' then
假定你已经有了一个函数: function GetValueByQuery(s:String):String;就是通过一个模糊查询得到结果值的函数。DBGrid中没有这个事件,可以这样解决,在 OnKeyDown中写入下代码 if key = #13 then begin if DBGrid1.SelectedField.Value<>'' then DBGrid1.Columns.Items[DBGrid1.SelectedIndex].Field.Value := GetValueByQuery(DBGrid1.Columns.Items[DBGrid1.SelectedIndex].Field.Value);end
if key = #13 then
begin
if DBGrid1.SelectedField.Value<>'' then
DBGrid1.Columns.Items[DBGrid1.SelectedIndex].Field.Value := GetValueByQuery(DBGrid1.Columns.Items[DBGrid1.SelectedIndex].Field.Value);end