DBGrid |
|
答題得分者是：yenhorng
|
|
larryleu
初階會員   發表：39 回覆：67 積分：38 註冊：2002-06-19 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
Query2.close;//Query2<--DBFrid(Form2的)
Query1.First;//Query1<--DBFrid(Form1的)
While not Query1.eof do
begin
//開始寫入第一個Table
CHKSQL.Close;
CHKSQL.Clear
CHKSQL.SQL.Add('INSER INTO xx (CC,DD) Values ' '(' #39 Query1AA.Value #39 ',' #39 Query1BB.Value #39 ')');
CHKSQL.ExecSQL;
//寫入第一個Table完畢
//開始寫入第二個Table
...//這裡寫入第二個Table..按照上面第一個的做法吧..
//寫入第二個Table完畢
CHKSQL.Close;
Query1.next;
end;
Query2.Open;
引言: 我有兩個Form1及Form2 其中Form1有AA及BB兩個欄位而Form2也有兩個欄位CC及DD 我要將Form1的AA寫入Form2CC Form1的BB寫入Form2DD 而這兩個Form都是用DBGrid方式顯示 |
|
yenhorng
中階會員 發表：12 回覆：82 積分：94 註冊：2002-06-18 發送簡訊給我 |
// 在觸發事件中加入下列四行指令：
Form2.DBGrid2.DataSource.DataSet.Edit;
//
Form2.DBGrid2.DataSource.DataSet.fieldbyname('CC').AsString :=
Form1.DBGrid1.DataSource.DataSet.fieldbyname('AA').AsString ;
//
Form2.DBGrid2.DataSource.DataSet.fieldbyname('DD').AsString :=
Form1.DBGrid1.DataSource.DataSet.fieldbyname('BB').AsString ;
//
Form2.DBGrid2.DataSource.DataSet.Post;
|
發表時間：2002-12-04 16:14:30
IP:203.73.xxx.xxx 未訂閱
系統時間：2024-05-13 9:30:48
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |