一个简单问题

Question

类型   一月  二月  三月  四月  五月 //字段名
电视机 20    25    19    26    22   //记录
比如我点击25，我想得到‘一月’，我点击22，我想得到五月。
另再问我点击25，我怎样才能将25赋给一个变量如str？

Answer 1

procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  Edit1.Text := ADOQuery1.FieldByName('类型').AsString;
  Edit2.Text := ADOQuery1.FieldByName('一月').AsString;
  Edit3.Text := ADOQuery1.FieldByName('二月').AsString;
  Edit4.Text := ADOQuery1.FieldByName('三月').AsString;
  Edit5.Text := ADOQuery1.FieldByName('四月').AsString;
  Edit6.Text := ADOQuery1.FieldByName('五月').AsString;
end;

Answer 2

类型   一月  二月  三月  四月  五月 //字段名
电视机 20    25    19    26    22   //记录
冰箱   10    13    15    12    18   //记录Edit1.Text := ADOQuery1.FieldByName('类型').AsString;这样还行吗？
赋给edit1.text的是电视机还是冰箱？

Answer 3

类型   一月  二月  三月  四月  五月 //字段名
电视机 20    25    19    26    22   //记录
冰箱   10    13    15    12    18   //记录上面的都在dbgrid中显示了（已存在）。
我随机点击20或者15，此时我怎样得到20对应的字段名即一月。同时我怎样将20赋给一个变量如str。

Answer 4

var
  fieldName:string;
begin
  fieldName:= dbgrid1.Columns[dbgrid1.SelectedIndex].FieldName;
  Edit1.Text := ADOQuery1.FieldByName(fieldname).AsString;
end;