If Dbgrid2.SelectedField.FieldName='IfCheck' then begin
S := DBGrid1.DataSource.DataSet.FieldByName('Code_No').AsString; V := DBGrid1.DataSource.DataSet.FieldByName('Single_No').AsString;你雙擊的時候不就選中了該條記錄嗎?直接對數據庫操作就行了
procedure TForm1.DBGrid1DblClick(Sender: TObject); begin a1:=table1.fields[0].asstring; a2:=table1.fields[1].asstring; .......... end;
procedure TForm1.DBGrid1DblClick(Sender: TObject); begin If Dbgrid2.SelectedField.FieldName='yourfield' then begin //You want to do end; end;
begin
V := DBGrid1.DataSource.DataSet.FieldByName('Single_No').AsString;你雙擊的時候不就選中了該條記錄嗎?直接對數據庫操作就行了
begin
a1:=table1.fields[0].asstring;
a2:=table1.fields[1].asstring;
..........
end;
begin
If Dbgrid2.SelectedField.FieldName='yourfield' then
begin
//You want to do
end;
end;