InfoPower400的TWDBGRID與TWDBCOMBOX整合的問題! |
|
尚未結案
|
|
lvluyang
一般會員   發表：18 回覆：9 積分：5 註冊：2004-09-28 發送簡訊給我 |
我將TWDBCOMBOX放到TWDBGRID上面﹐然后的根據TWDBGRID提供的信息將TWDBGRID與TWDBCOMBOX整合的﹐TWDBCOMBOX的ButtonStyle均為:cbsDownArrow程式在其中一個TWDBCOMBOX的noChange事件中用到了以下代碼:
procedure TFrmTest.wwDBComboBox_workordernoChange(Sender: TObject);
VAR I:INTEGER;
begin
wwDBComboBox_partno.clear;
wwDBComboBox_SPEC.clear;
wwDBComboBox_partno.item.clear;
wwDBComboBox_SPEC.item.clear;
with DM.TestDataSet do
BEGIN
CLOSE;
commandtext:='SELECT DISTINCT PARTID AS MM FROM MASS_WORKORDER WHERE WORKORDERNO=''' wwDBComboBox_workorderno.Text '''';
OPEN;
END;
for i:=0 to DM.TestDataSet.RecordCount-1 do
begin
self.wwDBComboBox_partno.Items.Add(TRIM(DM.TestDataSet.fieldbyname('MM').AsString));
DM.TestDataSet.Next;
end;
DM.TestDataSet.Close;
with DM.TestDataSet do
BEGIN
commandtext:='SELECT DISTINCT PARTSPEC AS MM FROM MASS_WORKORDER WHERE WORKORDERNO=' '''' wwDBComboBox_workorderno.Text '''';
OPEN;
END;
for i:=0 to DM.TestDataSet.RecordCount-1 do
begin
wwDBComboBox_SPEC.Items.Add(GETSPEC(TRIM(DM.TestDataSet.fieldbyname('MM').AsString)));
DM.TestDataSet.Next;
end;
DM.TestDataSet.Close;
end;
可是我在wwDBComboBox_workorder的值改變的時候wwDBComboBox_SPEC和wwDBComboBox_partno都是先清空但它們的ITEM都不能加載數據,請各位大大幫幫忙,在線等!
|
|
lvluyang
一般會員 發表：18 回覆：9 積分：5 註冊：2004-09-28 發送簡訊給我 |
發表時間：2004-12-08 08:59:23
IP:218.247.xxx.xxx 未訂閱
系統時間：2024-11-26 2:22:28
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |