比對上下筆資料 |
|
答題得分者是：GrandRURU
|
|
smallmi
一般會員   發表：18 回覆：18 積分：7 註冊：2012-09-02 發送簡訊給我 |
請問各位版大..從DB搜尋出的資料如附件圖...請問有何方式
可以像附件圖所示..上下筆資料一樣的話...該筆與下筆資料反黃 請各位版大指導..謝謝!!  附加檔案：52c940141123a_擷取.JPG
|
|
老大仔
尊榮會員  發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我 |
|
|
smallmi
一般會員 發表：18 回覆：18 積分：7 註冊：2012-09-02 發送簡訊給我 |
我在ADOQuery20CalcFields中寫了以下語法..但發生錯誤
錯誤訊息是"引數中可能發生類型錯誤、超過可接受的定義範圍、或與其他引數發生衝突" 請大大指導..謝謝!! while not Adoquery20.Eof do begin s1:=adoquery20.fieldbyname('sField2').AsString; Adoquery20.Next; ss:=adoquery20.fieldbyname('sField2').AsString; if(ss=s1) then begin DataSet.FieldByName('s4').AsString:='0'; end; end;
編輯記錄
smallmi 重新編輯於 2014-01-08 12:33:04， 註解 無‧
|
|
smallmi
一般會員 發表：18 回覆：18 積分：7 註冊：2012-09-02 發送簡訊給我 |
回覆大大....我寫了以下語法..但是遇到一個問題
就是最後一筆資料會讀取2次...變成最後一筆資料會誤判重覆 找不出哪裡有問題..請大大指導...謝謝!! [code delphi] adoquery20.DisableControls; try Adoquery20.First; while not Adoquery20.Eof do begin s2:=adoquery20.fieldbyname('sField2').AsString; s3:=adoquery20.fieldbyname('remark').AsString; Adoquery20.Next; s4:=adoquery20.fieldbyname('sField2').AsString; s5:=adoquery20.fieldbyname('remark').AsString; if(s2=s4) then begin ListBox1.Items.Add(s3); ListBox1.Items.Add(s5); end; end; finally adoquery20.EnableControls; end; [/code] |
|
GrandRURU
站務副站長 發表：240 回覆：1680 積分：1874 註冊：2005-06-21 發送簡訊給我 |
應該是這樣
[code delphi] adoquery20.DisableControls; try s4 := ''; s5 := ''; Adoquery20.First; s2:=adoquery20.fieldbyname('sField2').AsString; s3:=adoquery20.fieldbyname('remark').AsString; while not Adoquery20.Eof do begin if not Adoquery20.Bof then begin s4:=adoquery20.fieldbyname('sField2').AsString; s5:=adoquery20.fieldbyname('remark').AsString; end; if(s2=s4) then begin ListBox1.Items.Add(s3); ListBox1.Items.Add(s5); end else begin s2 := s4; s3 := s5; end; Adoquery20.Next; end; finally adoquery20.EnableControls; end; [/code] ===================引 用 smallmi 文 章=================== 回覆大大....我寫了以下語法..但是遇到一個問題 就是最後一筆資料會讀取2次...變成最後一筆資料會誤判重覆 找不出哪裡有問題..請大大指導...謝謝!! [code delphi] adoquery20.DisableControls; try Adoquery20.First; while not Adoquery20.Eof do begin s2:=adoquery20.fieldbyname('sField2').AsString; s3:=adoquery20.fieldbyname('remark').AsString; Adoquery20.Next; s4:=adoquery20.fieldbyname('sField2').AsString; s5:=adoquery20.fieldbyname('remark').AsString; if(s2=s4) then begin ListBox1.Items.Add(s3); ListBox1.Items.Add(s5); end; end; finally adoquery20.EnableControls; end; [/code] |
發表時間：2014-01-05 19:20:52
IP:124.11.xxx.xxx 訂閱
系統時間：2024-04-20 8:44:31
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |