跟踪特定条件，只对一行记录只读，多谢。 ( 积分: 200 )

J

jmlwz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-07

• #1

跟踪特定条件，只对一行记录只读(ClientDataSet + DBGridEh)，怎样做，多谢。

 

S

songrun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-07

• #2

請說明確點兒

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-07

• #3

ClientDataSet&nbsp;+&nbsp;DataSource&nbsp;+&nbsp;DBGridEh<br>在&nbsp;DataSource&nbsp;的&nbsp;OnDataChange&nbsp;中写：<br>procedure&nbsp;TForm1.DataSource1DataChange(Sender:&nbsp;TObject;&nbsp;Field:&nbsp;TField);<br>begin<br>&nbsp;&nbsp;if&nbsp;....&nbsp;then&nbsp;DBGridEh1.ReadOnly:=true<br>&nbsp;&nbsp;else&nbsp;DBGridEh1.ReadOnly:=false;<br>end;

 

J

jmlwz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-07

• #4

只对一条记录，只读呀。

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-07

• #5

ClientDataSet&nbsp;+&nbsp;DataSource&nbsp;+&nbsp;DBGridEh<br>在&nbsp;DataSource&nbsp;的&nbsp;OnDataChange&nbsp;中写：<br>procedure&nbsp;TForm1.DataSource1DataChange(Sender:&nbsp;TObject;&nbsp;Field:&nbsp;TField);<br>begin<br>&nbsp;&nbsp;if&nbsp;....&nbsp;then&nbsp;DBGridEh1.ReadOnly:=true&nbsp;//这里的&nbsp;...&nbsp;就是你指定记录的地方，符合条件的记录只读，其它记录都不会自读。<br>&nbsp;&nbsp;else&nbsp;DBGridEh1.ReadOnly:=false;<br>end;

 

J

jmlwz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-07

• #6

嗯，没错，多谢。

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-07

• #7

例如：<br>procedure&nbsp;TForm1.DataSource1DataChange(Sender:&nbsp;TObject;&nbsp;Field:&nbsp;TField);<br>begin<br>&nbsp;&nbsp;if&nbsp;AdoQuery1.FieldByName('ID').AsInteger=101&nbsp;then&nbsp;DBGridEh1.ReadOnly:=true&nbsp;<br>&nbsp;&nbsp;else&nbsp;DBGridEh1.ReadOnly:=false;<br>end;