SelectRows返回的是选中的记录。(如果你把option的MultiSelect打开了的话)
你当前只选中了一条记录,Items的Count只有1,当然越界啦!~如果你是要第二个字段的值,那么是这样的:
Edit5.Text := DBGrid.Fields[1].AsString;
你当前只选中了一条记录,Items的Count只有1,当然越界啦!~如果你是要第二个字段的值,那么是这样的:
Edit5.Text := DBGrid.Fields[1].AsString;
而且你放的过层也错了,在dbgrid1colenter里,只在你点击换字段列时才响应的。
procedure tstaffform.dbgrid1cellclick(sender:tobject);
begin
edit5.text:=dbgrid1.selectedfield.asstring;
end;