仍然得不到欄位名稱 |
|
答題得分者是：william
|
|
rockytian
一般會員   發表：8 回覆：4 積分：2 註冊：2002-11-28 發送簡訊給我 |
我的源碼如下:
procedure TBOMIDSERCHER.ComboBox1Change(Sender: TObject);
var
i:integer;
begin
with Query1,combobox1 do
begin
items.Clear ;
first;
while not eof do
begin
items.Add(fieldbyname('bom').AsString);
next;
end;
end;
end;
運行時沒有提示錯誤,但是仍然沒有得到'bom'的欄位名稱,好奇怪喲.版主幫幫我呀.
|
|
william
版主   發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
欄位名稱???
var
i:integer;
begin
with Query1,combobox1 do
begin
items.Clear ;
for i := 0 to FieldCount-1 do
Items.Add(Fields[i].FieldName);
end;
end;[/code] BTW, you are modifying combobox1 with the OnChange event of combobox1? May I ask you what do you want exactly
|
|
rockytian
一般會員 發表：8 回覆：4 積分：2 註冊：2002-11-28 發送簡訊給我 |
|
|
andersonhsieh
版主 發表：33 回覆：531 積分：439 註冊：2002-06-10 發送簡訊給我 |
你程式本身就己寫錯了,
1.要抓所有的欄位名稱
combobox1.itmes.clear;
for index := 0 to query1.fields.count -1
combobox1.itmes.add(query1.fields[index].fieldname);
2.要抓所選取的欄位值
combobox2.itmes.clear;
query1.first;
while not query1.eof do
begin
combobox2.itmes.add(query1.fieldbyname(combobox1.text).asstring);
query1.next;
end; @@~~飛翔在天際的精靈~~@@
------
@@~~飛翔在天際的精靈~~@@ |
|
william
版主 發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
Look like this one???
procedure SetupComboBox;
var
i:integer;
begin
with Query1, Combobox1 do begin
Items.Clear ;
for i := 0 to FieldCount-1 do
Items.Add(Fields[i].FieldName);
end;
end; procedure ComboBox1Change(Sender: TObject);
begin
DBLookupcomboBox1.ListField := ComboBox1.Text;
end;
|
|
banson1716
高階會員 發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
|
|
banson1716
高階會員 發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
procedure TTowerForm.SpeedButton2Click(Sender: TObject);
var YearBookmark: TBookmark;
begin
with DModule.Table1 do
begin
YearBookmark := GetBookmark();
While not Eof do begin
Edit;
Number(Sender);//<--------呼叫副程式
Next;
if Eof then
exit;
end;
GotoBookmark(YearBookmark);
end;
end; procedure TTowerForm.Number(Sender: TObject);//加資庫編號
Var s, S1 : String;
begin
With DModule.DataSource3.Dataset do begin
Edit;
if(DModule.Table1['TowerNo']<> '')then begin
s:=IntToStr(RecNo 1);
FieldByName('TowerNo').AsString:=_StrZero1(s,4);
Post;
End;
end;
end;
|
發表時間：2003-01-09 10:20:50
IP:61.145.xxx.xxx 未訂閱
系統時間：2024-07-01 9:28:32
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |