一个小问题，对于熟练的朋友来说太简单。关于DBGRID的定位。(100分)

1

1111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #1

1、我双击一个DBGRID网格时，要弹出一个窗体，双击那条记录弹出的窗体就显示那条记录。
应该有多种方法。各位出出主意。
2、双击DBGRID中的一条记录时，如何取得它是第几条记录？并将该值放在EDIT1.TEXT中。
谢谢，水平低。各位大哥谅解。

 

C

catfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #2

1.直接读取 DBGrid.DataSource.DataSet，你点击DBGrid时就选定了某条记录了


2.Edit1.Text := DBGrid.DataSource.DataSet.FieldByName('字段名').AsString

 

H

hgood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #3

說的有道理﹗

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #4

1、只要在要弹出的窗体上放置 DBEDIT 控件即可，代码都不用写

2、Edit1.Text := DBGrid.DataSource.DataSet.RecNo；

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #5

locate

 

L

lb_icesea79

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #6

catfox的方法就行

 

披

披星戴月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #7

下面是delphi自带帮助文档的一个例子:看看!
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items));
for j := 0 to FieldCount-1 do
begin
if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
end;

 

1

1111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #8

多人接受答案了。

 

秦

秦人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-18

• #9

将你弹出窗口中的edit 该用为dbedit，并设置好dbedit 的属性（datasourse，datafiled），什么代码也不用写，就可以了达到你的目的。