我的程式碼: Query2.SQL.Clear;
Query2.SQL.Add('SELECT MAX(List_Num)AS max FROM Patient_Nurse_Plan_Record');
Query2.CLOSE;
Query2.OPEN;
strnum:=Query2.FieldByName('max').AsString;
maxnum:=strtoint(strnum[2]) 1;
strnum:='#' inttostr(maxnum);
Label32.Caption:=strnum;
Query2.SQL.Clear;
Query2.SQL.Add('INSERT INTO Patient_Nurse_Plan_Record');
Query2.SQL.Add('( List_Num , Nur_Problem_Code)VALUES(');
Query2.SQL.Add(' ''' strnum ''' ,');
Query2.SQL.Add(' ''' tcode ''' )');
Query2.ExecSQL;
Query2.Close;
Query2.Open; 為什麼他會一直顯示二進位獲字串資料被截斷? 而且我用程式寫入資料庫的資料在SQL就刪不掉?了

您好﹗

maxnum:=strtoint(strnum[2]) 1;
以上句中Strnum[2]就會截取Strnum字串中長度為2的內容﹒

最后在Query2.Open之前﹐沒有先賦敘述句給Query2的SQL屬性﹐Query2的SQL屬性值仍是之前Insert的內容﹐用Open方法時會有錯誤﹒

------
忻晟

目標欄位長度比來源欄位長度短

成功咧!!謝謝各位!!!