舒
舒克
Unregistered / Unconfirmed
GUEST, unregistred user!
我在DBCtrlGrid中放了两个DBEdit(DBEdit1,DBEdit2)其中DBEdit1显示数据表中固定字段的
数值。然后根据DBEdit1中的数值,到另一个表中去查找相对应的中文字,然后把中文字放到
DBEdit2中显示。
我把这个转换过程放到了DBCtrlGrid中的OnPainPanel事件中。判断代码如下。
procedure Tyydata.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid;
Index: Integer);
begin
CodeTable.Locate('ccode',DBEdit1.Text,[]);
DBEdit2.Text := CodeTable.FieldValues['ccode_name'];
end;
现在因为我是把CtrlGrid的RowCount设为5,所以5行DBEdit2的Text内容都是一样的。
我需要分别把每行的DBEdit2的Text根据DBEdit1的内容来转成中文,各位高手看看,以
上的代码该如何修改比较好???
数值。然后根据DBEdit1中的数值,到另一个表中去查找相对应的中文字,然后把中文字放到
DBEdit2中显示。
我把这个转换过程放到了DBCtrlGrid中的OnPainPanel事件中。判断代码如下。
procedure Tyydata.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid;
Index: Integer);
begin
CodeTable.Locate('ccode',DBEdit1.Text,[]);
DBEdit2.Text := CodeTable.FieldValues['ccode_name'];
end;
现在因为我是把CtrlGrid的RowCount设为5,所以5行DBEdit2的Text内容都是一样的。
我需要分别把每行的DBEdit2的Text根据DBEdit1的内容来转成中文,各位高手看看,以
上的代码该如何修改比较好???