仍然得不到欄位名稱 |
答題得分者是: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;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |