有关下拉框辅助添加的问题 |
|
答題得分者是：problemman
|
|
sewawa
一般會員   發表：6 回覆：1 積分：1 註冊：2003-04-04 發送簡訊給我 |
我使用两个下拉框作为辅助录入的手段，
代码如下
procedure Tfrom.addClick(Sender: TObject);
begin
append;
waixing.Fields[1].AsString:=DBplane.Items.Text ;
waixing.Fields[2].AsString:=DBbujian.Items.Text;
........
waixing.ApplyUpdates(0);
close;//关闭表
end;
程序运行正常，可是添加的内容不是我下拉框选中的，而是下拉框中的第一项,这是怎么回事，改怎么修改呢？
|
|
problemman
一般會員 發表：7 回覆：25 積分：16 註冊：2003-04-11 發送簡訊給我 |
引言: 我使用两个下拉框作为辅助录入的手段， 代码如下 procedure Tfrom.addClick(Sender: TObject); begin append; waixing.Fields[1].AsString:=DBplane.Items.Text ; waixing.Fields[2].AsString:=DBbujian.Items.Text; ........ waixing.ApplyUpdates(0); close;//关闭表 end; 程序运行正常，可是添加的内容不是我下拉框选中的，而是下拉框中的第一项,这是怎么回事，改怎么修改呢？sewawa 兄，小弟有些問題 1. 請問 waixing 與 DBplane所連結的table 是否一樣? 2. append==> 是否waixing.append? close ==> 是否waixing.close? 如果問題2是對的話，請這樣打: procedure Tfrom.addClick(Sender: TObject); begin waixing.append; waixing.Fields[1].AsString:=DBplane.Items.Text ; waixing.Fields[2].AsString:=DBbujian.Items.Text; ........ waixing.ApplyUpdates; waixing.close;//关闭表 waixing.Open end; 《觸不到問題人》 來無影，去無踪， 問題總是一羅羅。 發表人 - problemman 於 2003/04/22 14:35:09 發表人 - problemman 於 2003/04/22 14:37:20 |
發表時間：2003-04-22 10:31:49
IP:61.150.xxx.xxx 未訂閱
系統時間：2025-02-28 18:52:07
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |