stringgrid 讀取資料庫的問題 |
|
尚未結案
|
|
js1981
一般會員   發表：10 回覆：17 積分：5 註冊：2004-08-04 發送簡訊給我 |
我在讀取query中的資料時, 發現程序給了我一句error message
Invalid variant type conversion.
並指明了其中一句code 有問題.
但我在stringgrid 上也能顯示所有我需要的資料~~~請問各位問題是出在哪裡???
謝謝幫忙~~~~ QUERY1.FIRST;
for i:=1 to stringgrid1.RowCount-1 do
begin stringgrid1.Cells[1,i]:=query1.FieldValues['manif_no']; stringgrid1.Cells[2,i]:=query1.FieldValues['name']; stringgrid1.Cells[3,i]:=query1.FieldValues['shipord']; stringgrid1.Cells[4,i]:=query1.FieldValues['whouse']; <<---這句 stringgrid1.Cells[5,i]:=query1.FieldValues['sh_pkgs']; stringgrid1.Cells[6,i]:=query1.FieldValues['bk_cbm']; stringgrid1.Cells[7,i]:=query1.FieldValues['sh_cbm'];
query1.Next;
end;
|
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
應該是該欄位值為 NULL 所造成的
加入紅色的判斷式試試:
QUERY1.FIRST;
for i:=1 to stringgrid1.RowCount-1 do
begin
if not VarIsNull(query1.FieldValues['manif_no']) then
stringgrid1.Cells[1,i] := query1.FieldValues['manif_no'];
if not VarIsNull(query1.FieldValues['name']) then
stringgrid1.Cells[2,i] := query1.FieldValues['name'];
if not VarIsNull(query1.FieldValues['shipord']) then
stringgrid1.Cells[3,i] := query1.FieldValues['shipord'];
if not VarIsNull(query1.FieldValues['whouse']) then
stringgrid1.Cells[4,i] := query1.FieldValues['whouse'];
if not VarIsNull(query1.FieldValues['sh_pkgs']) then
stringgrid1.Cells[5,i] := query1.FieldValues['sh_pkgs'];
if not VarIsNull(query1.FieldValues['bk_cbm']) then
stringgrid1.Cells[6,i] := query1.FieldValues['bk_cbm'];
if not VarIsNull(query1.FieldValues['sh_cbm']) then
stringgrid1.Cells[7,i]:=query1.FieldValues['sh_cbm'];
query1.Next;
end;
--
hagar.
|
|
js1981
一般會員 發表：10 回覆：17 積分：5 註冊：2004-08-04 發送簡訊給我 |
發表時間：2005-06-03 17:43:54
IP:202.175.xxx.xxx 未訂閱
系統時間：2024-06-27 0:07:55
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |