在ehlib的DBGridEh输入数据时，如何控制一定要先输入某栏位，才能输入另外一个栏位??

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

if (DBGridEh1.SelectedField.FieldName ='后输入的字段') and
   (DBGridEh1.datasource.dataset.fieldbyname('须先输入的字段').isnull) then
begin
  for i:=0 to DBGridEh1.Columns.Count -1 do
  begin
   if DBGridEh1.Columns[0].FieldName ='须先输入的字段' then
   begin
      DBGrid1.SelectedIndex :=i;
      break;
   end;
  end;
end;
DBGridEH的每列都有ReadOnly属性，控制一下如果那个该输入的列输入了数据才允许另一列可读就是
Anylib,创意、自由、灵活的体现，超强的报表功能，独特的双数据源连接，全功能的表格组件，它带给你的是轻松，美妙！http://www.anylib.com
  改一下DBGridEh类的代码，生成一个OnBeforeCellExit事件，在这个事件判断是否输入数据：  TDBGridEh = class(TCustomDBGridEh)
  private

  ....  protected
   procedure DefaultDrawColumnCell(const Rect: TRect;DataCol: Integer; Column: TColumnEh; State: TGridDrawState); overload;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override{virtual};
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    procedure KeyPress(var Key: Char);override;
    procedure KeyDown(var Key: Word; Shift: TShiftState); override{virtual};
    procedure KeyUp(var Key: Word; Shift: TShiftState); override{virtual};{´¥·¢×Ô¶¨ÒåÊÂ¼þ£ºBeforeCellExit}
procedure TDBGridEh.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if((CurCell.X <> Col)or
      (CurCell.Y <> Row))and
       (Firstfocused=false)then
  begin{´¥·¢×Ô¶¨ÒåÊÂ¼þBeforeCellExit}
    if Assigned(OnBeforeCellExit) then{×Ô¶¨ÒåÊÂ¼þ}
        fOnBeforeCellExit(self,CurCell.Y,CurCell.X);
  end;
  inherited;
end;{´¥·¢×Ô¶¨ÒåÊÂ¼þ£ºBeforeCellExit}
procedure TDBGridEh.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  Firstfocused:=false;
end;procedure TDBGridEh.KeyDown(var Key: Word; Shift: TShiftState);
var
  i:integer;
begin
  if Key=VK_DOWN then
  begin
    i:=DataSource.DataSet.RecNo;
    if i=-1 then
      i:=DataSource.DataSet.RecordCount;
    if i=DataSource.DataSet.RecordCount then
    Abort;{Key:=0;}
  end;
  if(Key=VK_UP)or
     (Key=VK_DOWN)or
      (Key=VK_LEFT)or
       (Key=VK_RIGHT)or
        (Key=VK_TAB)or
         (Key=VK_RETURN)then
  begin
    if((CurCell.X <> Col)or
        (CurCell.Y <> Row))and
         (Firstfocused=false)then
    begin{´¥·¢×Ô¶¨ÒåÊÂ¼þBeforeCellExit}
      if Assigned(OnBeforeCellExit) then
          fOnBeforeCellExit(self,CurCell.Y,CurCell.X);
    end;
  end;
inherited;
end;procedure TDBGridEh.KeyUp(var Key: Word; Shift: TShiftState);
begin
  inherited;
  DoKeyUped(Self,Key,Shift);
  Firstfocused:=false;
end;procedure TDBGridEh.DefaultDrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
  //inherited;
  {Èç¹ûÒª»½¹µã£¬¾ÍÈÃDBGrid½øÈë±à¼×´Ì¬}
  if(gdFocused in State) then
  begin
    //Èç¹ûÊÇ½øÈëÒ»¸öÐÂµÄCell
    if((CurCell.X <> DataCol{Col})or
       (CurCell.Y <> Row{DataSource.DataSet.RecNo}))then
    begin
      {Ì×ºÚ¿ò}
      if fShowRect then
      begin
        EditorMode := True;
        AddBox;
          {È«Ñ¡ÆäÖÐµÄ×Ö·û}
          CurCell.tag := 0;
          GetWindowRect(InPlaceEditor.Handle,CurCell.r);
          SendMessage(InPlaceEditor.Handle,EM_SETSEL,0,1000);
      end;
      {¸üÐÂ Row,col }
      CurCell.X := DataCol{Col};
      CurCell.Y := Row{DataSource.DataSet.RecNo};
    end else
    begin {Õý³£ÏÔÊ¾×´Ì¬µÄCell}
      inherited;
    end;
  end;
end;
  先定义：  TCurCell = Record {µ±Ç°½¹µãCellµÄÎ»ÖÃ}
    X : integer; {ÓÐ½¹µãCellµÄColumnIndex}
    Y : integer; {ÓÐ½¹µãCellËùÔÚµÄ¼ÍÂ¼µÄ¼ÍÂ¼ºÅ}
    tag : integer; {×î½ü½øÈë¸ÃCellºóÊÇ·ñµ¯³öÁËÏÂÀÁÐ±í}
    r : TRect; {Ã»ÓÐÊ¹ÓÃ}
  end;
  CurCell : TCurCell; {¼ÇÂ¼µ±Ç°ÓÐ½¹µãµÄCell}