dbgrid单元格选择数据录入

最新推荐文章于 2025-05-18 11:56:19 发布

原创最新推荐文章于 2025-05-18 11:56:19 发布 · 1.1k 阅读

1 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

31 篇文章

订阅专栏

该代码段展示了如何在备注字段中动态填充预设选项的过程。当选定的字段为备注时，通过清空并添加指定的字符串到PickList中实现选项填充。如果选定的索引到达最后一个字段，则使数据集前进到下一行，并将第六个字段设置为焦点。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;