Question

各位大虾帮忙看看 一个关于delphi的简单问题

我定义了一个方法
procedure TForm1.showDBGrideEh();
begin
DBGridEh1.UseMultiTitle:=true;
DBGridEh1.TitleLines:=3;
DBGridEh1.Columns[0].Title.Caption := '编号;
DBGridEh1.Columns[1].Title.Caption := '名称;
DBGridEh1.Columns[2].Title.Caption := '备注;
end;
然后在FormShow中直接调用它，为什么报错？？
Project Project1.exe raised exception class EListError with message ' List index out of bounds(1)'.Process stopped.Use Step or Run to continue

Answer 1

如果DBGridEh1只有一列,侧按以下修改代码:
DBGridEh1.UseMultiTitle:=true;
DBGridEh1.TitleLines:=3;
DBGridEh1.Columns[0].Title.Caption := '编号;
DBGridEh1.Columns.Add;
DBGridEh1.Columns[1].Title.Caption := '名称;
DBGridEh1.Columns.Add;
DBGridEh1.Columns[2].Title.Caption := '备注;

追问

谢了，这个错误已经解决了。我现在想问的是 如果我想操作第二行数据，应该怎么办？换句换来表达，如果DBGridEh中有好多条数据，我现在想要获得其中某个坐标的数据，并把它复制给一个变量，要怎么实现？

追答

你想用DBGridEh1来作数据录入界面吗?这有些不妥,在DBGridEh1中输入数据是很不方便的.
另外,用数据集组件与DBGridEh1连接之后,上面的代码也是多余的.
"获得其中某个坐标的数据",该组件是不讲坐标的,它主要是单元格的操作.实际上如果与数据集组件连接之后,单元格也不操作了,直接把数据库中的数据赋值给变量就行了.

追问

那要进行新增、修改操作该怎么办呢？DBGridEh中显示的是多个表的数据

追答

按键盘上的下箭头键,它会自动增加一行,修改,选中后除掉单元格的内容,再次输入即可!

追问

假如我DBGridEh中显示的是表A的全部数据和表B的部分数据，我现在要对A表进行增、改操作，表B有非空约束，而且DBGridEh中显示的数据中不包含B表的约束，那该怎么办？按你上面的方式，它报错，提示不能为空

追答

我建议你不要使用DBGridEh等网格组件来做用户输入数据操作界面。我的习惯是用网格组件来向用户提供数据浏览，为了防止用户不小心修改数据，通常要把网格组件设置为只读。以IE为平台的一些用户数据输入界面通常使用网格来做，我是做单位文职工作中，这样的界面用了不少，但总是觉得不习惯，很不方便。因为我用label标签和EDIT以及combobox组件做出的用户数据输入界面，通常只用小键盘输入数据，一条数据录入完毕，敲小换行键，保存数据，接着再输入下一条数据。速度很快。
通常来说，一个数据输入界面，只对应于一张数据表，如果要同时更新其它的表怎么办，如果这其它表中的数据不需要用户再录入任何数据，就是一条完整的记录，这好办，就用另外一个数据集组件，连接其它需要更新的表，进行数据保存和更新操作，用户无需干预。
你的情况，是用一个查询联接了两张表，这时一张表数据更新，另外一张表又无需添加数据，但DBGridEh组件不管这些，只要产生一新行，就会自动通过数据集组件保存数据，但网格中又没有数据，这时就会出错了。解决的方法上面已经说了，抛弃这种作法。

追问

哦，这个问题我已经找到解决的方法了，我新建了个数据集来用作要更新数据的数据表的录入，并把数据集的locktype属性设置为批量录入方式，在数据集执行excesql操作之前将数据一个个的赋值给数据集的方式实现数据的更新。现在最主要的问题是解决操作表与另一个关联表之间的关系问题，因为担心操作表在更新后因为与另一个表的关联问题出现查找不到数据的情况，所以现在想给DBGridEh建个下拉表，通过下拉表解决数据关联不到的问题。

Answer 2

首先你看看Columns[2]存在吗？不存在的话，就要创建！

Answer 3

越界了，朋友；