在dbgrid中显示一张表的内容,用DBGrid1CellClick选中一行在另一个窗口中 显示出所选这行的所有内容,假设用label显示字段名,用edit显示该字段内容.(不同的表字段的个数也不同),请问各位大大怎么做?

這應該是一個很淺顯的問題。

在DBGrid 中 OnCellClick 事件。
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  { 1. DataSet 的Cursor會移至這行記錄 }
  { 2. 可得知所點擊方格欄位名稱，透過 Column.Field.FieldName }
  {    用 Column.Field.AsString 就是 欄位內容 } 
end;

问题没有解决,我想知道怎么动态取得我点击该行的字段名及其字段内容,在新的form中动态显示. 请各位大大给点代码,我现在的 代码如下： procedure TForm1.DBGrid1CellClick(Column: TColumn); begin form2.Show; form2.label1.Caption :=dbgrid1.Columns.Items[2].FieldName ; form2.Edit1.Text := dbgrid1.Columns.Items[2].Field.AsString; end; end. 發表人 - xxxxzxx 於 2005/01/24 13:18:14

Hi xxxxzxx 你好: 兩個方法 1.將Form2的TLabel和TEdit改成資料感知元件TDBText, TDBEdit, 它們的DataSoruce設成Form1的DataSource1    2.在Form1 DBGrid1的OnCellClick 或OnClick下寫

if Assigned(Form2) then begin
   Form2.Label1.Caption := 你的資料;
   Form2.Edit1.Text := 你的資料;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

不知您到底有沒有注意！ 我先前在寫些什麼？？ FOnCellClick: TDBGridClickEvent; 事件原形如下： TDBGridClickEvent = procedure (Column: TColumn) of object; 而此 Column 非 dbgrid1.Columns 為OnCellClick 中所代入(Column: TColumn) 應此應為 procedure TForm1.DBGrid1CellClick(Column: TColumn); begin form2.Show; form2.label1.Caption :=Column.FieldName ; form2.Edit1.Text := Column.Field.AsString; end;

谢谢斑竹wameng及miles. 现在的问题是假设表1中有25个字段,程序在新的form上就动态的用25个label显示其字段名,用25个edit显示出其对应的字段内容;现在表2中有30个字段,怎么让程序在新的form中动态的建立30个label&edit显示其对应内容.(请问各位大大有没有更好的办法?不用label&edit).

用 StringGrid 就搞定了。

引言: 用 StringGrid 就搞定了。

wameng能进一步给点提示吗?谢谢@:)

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  i:Integer;
begin
  Form2.Show;
  Form2.StringGrid1.RowCount:=DBGrid1.Columns.Count;
  for i := 0 to DBGrid1.Columns.Count-1 do
  begin
    Form2.StringGrid1.Cells[0,i]:=DBGrid1.Columns[i].FieldName;
    Form2.StringGrid1.Cells[1,i]:=DBGrid1.Columns.Items.[i].Field.AsString;      end;    end;

谢谢!上述回复的老大们,谢谢boss的代码. 我还有个问题:delphi有没有可以用来实现类似这样的控件:(loop 显示) for i=1 to rsT.count stuNum=trim(rsT("STU_NUM")) stuName=trim(rsT("STU_NAME")) stuClass=rsT("STU_CLASS") response.Write('input name="a" type="checkbox" value="a"'"&stuNum&""&stuName&""&stuClass&") rsT.movenext if rsT.Eof then exit for next checkbox自动create 發表人 - xxxxzxx 於 2005/01/27 20:55:53