狀況如下
小弟利用
queryRNT_NO.Value := FEXCEL.WORKBOOKS[1].WORKSHEETS[1].CELLS[I,2];
queryRNT_per_rate.Value := FEXCEL.WORKBOOKS[1].WORKSHEETS[1].CELLS[I,7];
將資料的值上傳至query中然後用dbgrid呈現
現在想判斷同一個RNT_NO的分配總合是否為100，若不為100時跳出警告視窗
請問要如何實現呢
小弟寫法如下 但始終沒辦法判斷,請求協助
----------------------------------------------------
query.SQL.Clear;
query.SQL.Add('select RNT_NO,SUM(RNT_PER_RATE) from rnt005 GROUP BY RNT_NO');
query.open;
IF NOT (queryRNT_per_rate.Value ='100') then
begin
field_errmsg :='合約編號分攤比例總合不為100%，請修正!!!';
MessageDlg(field_errmsg,mtWarning,[mbok],0);
abort;
end;
---------------------------------------------------

附加檔案：4cee03521815a_檢核EXCLE程式碼.txt

===================引 用 fortunate1986 文 章===================
狀況如下
小弟利用
queryRNT_NO.Value := FEXCEL.WORKBOOKS[1].WORKSHEETS[1].CELLS[I,2];
queryRNT_per_rate.Value := FEXCEL.WORKBOOKS[1].WORKSHEETS[1].CELLS[I,7];
將資料的值上傳至query中然後用dbgrid呈現
現在想判斷同一個RNT_NO的分配總合是否為100，若不為100時跳出警告視窗
請問要如何實現呢
小弟寫法如下 但始終沒辦法判斷,請求協助
----------------------------------------------------
query.SQL.Clear;
query.SQL.Add('select RNT_NO,SUM(RNT_PER_RATE) from rnt005 GROUP BY RNT_NO');
query.open;
IF NOT (queryRNT_per_rate.Value ='100') then
begin
field_errmsg :='合約編號分攤比例總合不為100%，請修正!!!';
MessageDlg(field_errmsg,mtWarning,[mbok],0);
abort;
end;
---------------------------------------------------

不明白您的意思，query和queryRNT_per_rate有什么联系？？
是说判断 RNT_PER_RATE总和大于100的？
[code cpp]
query.SQL.Clear;
query.SQL.Add('select RNT_NO,SUM(RNT_PER_RATE) as a from rnt005 GROUP BY RNT_NO');
query.open;
while not query.eof do
begin
IF query.fieldbyname('a').value>'100' then
begin
field_errmsg :='合約編號分攤比例總合不為100%，請修正!!!';
MessageDlg(field_errmsg,mtWarning,[mbok],0);
abort;
end;
query.next;
end;
[/code]

編輯記錄