水 水刃 Unregistered / Unconfirmed GUEST, unregistred user! 2007-02-28 #1 怎样编程实现单击Dbgrid的一条记录后弹出一个窗体显示该记录全部内容
隐 隐士山人 Unregistered / Unconfirmed GUEST, unregistred user! 2007-02-28 #2 procedure TForm1.DBGrid1CellClick(Column: TColumn); begin showmessage(ADOTable1['字段1']+ADOTable1['字段2']);//把ADOTable1['字段1']等赋给任何能显示的东东就行.如 Edit1.text:=ADOTable1['字段1']; end;
procedure TForm1.DBGrid1CellClick(Column: TColumn); begin showmessage(ADOTable1['字段1']+ADOTable1['字段2']);//把ADOTable1['字段1']等赋给任何能显示的东东就行.如 Edit1.text:=ADOTable1['字段1']; end;
L lcm40 Unregistered / Unconfirmed GUEST, unregistred user! 2007-03-01 #3 procedure TForm1.DBGrid1CellClick(Column: TColumn); begin showmessage(ADOTable1.fieldbyname['字段1'].AsString+ ADOTable1.fieldbyname['字段2'].AsString); //如果字段不是字符型要转换一下 end;
procedure TForm1.DBGrid1CellClick(Column: TColumn); begin showmessage(ADOTable1.fieldbyname['字段1'].AsString+ ADOTable1.fieldbyname['字段2'].AsString); //如果字段不是字符型要转换一下 end;
