dbgrid单元格选择数据录入

  dbg_.SelectedIndex := dbg_.SelectedIndex + 1;
  if dbg_.Columns[dbg_.SelectedIndex].FieldName = '备注' then
  begin
    dbg_.Columns[dbg_.SelectedIndex].PickList.Clear;
    dbg_.Columns[dbg_.SelectedIndex].PickList.Add('组合收到');
    dbg_.Columns[dbg_.SelectedIndex].PickList.Add('滴胶');
    dbg_.Columns[dbg_.SelectedIndex].PickList.Add('工艺扣');
    dbg_.Columns[dbg_.SelectedIndex].PickList.Add('边位镭射');
    dbg_.Columns[dbg_.SelectedIndex].PickList.Add('喷绘');
  end;
  if dbg_.SelectedIndex = dbg_.FieldCount-1 then
  begin
    dbg_.DataSource.DataSet.Next;
    dbg_.Fields[6].FocusControl;
  end;