請問各位大大以下兩行程式一樣 我想把數字的部分寫成變數 把程式改成一行,把變數帶入 該如何寫 if key = #13 then if ((TDBGrid(Sender).SelectedIndex =0) then begin DBGrid1.SetFocus; DBGrid1.SelectedIndex :=0 ; ShowMessage('請輸入資料！'); end else if ((TDBGrid(Sender).SelectedIndex =1) then begin DBGrid1.SetFocus; DBGrid1.SelectedIndex :=1 ; ShowMessage('請輸入資料！'); end

------
Xax

您好﹗    從您的程式碼來看﹐并沒有什么意義﹐我想可能是您還要加上其它的功能之用﹐諸如判斷欄位值是否IsNull等等﹐就先以這個猜想為例﹐試試如下﹕

Var
  I: Integer;
begin
  if Key = #13 then
    begin
      I := TDBGrid(Sender).SelectedIndex;
      if ((TDBGrid(Sender).DataSource.DataSet.FieldByName(TDBGrid(Sender).SelectedField.FieldName).IsNull) or (TDBGrid(Sender).DataSource.DataSet.FieldByName(TDBGrid(Sender).SelectedField.FieldName).Value = ''))then
        begin
          TDBGrid1(Sender).SelectedIndex := I;
          ShowMessage('請輸入資料！');
        end;
    end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================ 發表人 - cashxin2002 於 2005/10/07 16:34:08

------
忻晟

 
 if key = #13 then
  begin
    DBGrid1.SetFocus;
    DBGrid1.SelectedIndex := Integer(TDBGrid(Sender).SelectedIndex<>0);
    ShowMessage('請輸入資料！');
  end

风花雪月 e梦情缘 网络代号:wnhoo or sos_admin 网名:e梦缘 Mail:wnhoo@163.com