這是我依我的想法下去做的 clint端: procedure TForm1.Button1Click(Sender: TObject); var id ,i,j,k,m,Col,Lin:integer; var v,x,y:variant; begin m:=1; v:=vararraycreate([0,9],varvariant); id:=StrToInt(edit1.Text); SocketConnection1.Connected:=true; SocketConnection1.AppServer.mtehod1(id,i,j,v,x,y); stringgrid1.ColCount:=i; stringgrid1.RowCount := j; stringgrid1.FixedCols := 0; stringgrid1.FixedRows := m; if x=true then For Col := 0 To i-1 Do stringgrid1.Cells[Col,0] := v[col]; Lin := 0; if y=true then For Col := 0 To i-1 Do stringgrid1.Cells[Col,Lin stringgrid1.FixedRows] :=v[Col]; Next; Inc(Lin); end; end. com端: procedure Tselect.Method1(const a: WideString; var b, c, dataarray, d, e: OleVariant); var j,k,l,i:Integer; begin if Trim(a) = '' then begin ShowMessage('請先輸入條件值'); //Edit1.SetFocus; end else begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Select 基金代號,購買日期,價格,數量,交易動作 From 交易資料表 Where '); ADOQuery1.SQL.Add('客戶編號 = ''' a ''''); ADOQuery1.Open; if ADOQuery1.RecordCount=0 then ShowMessage('無符合條件的內容請重新輸入') else begin i:=1; // d:=ADOQuery1.FieldCount; With adoquery1 Do begin If Not IsEmpty Then Begin d:=true; b:= FieldCount; c := RecordCount i; // stringgrid1.FixedCols := 0; //stringgrid1.FixedRows := i; For j := 0 To FieldCount-1 Do dataarray[j,0] := Fields[j].FieldName; l:= 0; While Not Eof Do Begin e:=true; For j := 0 To FieldCount-1 Do dataarray[j] :=Fields[j].AsString; Next; Inc(l); End; end; end; end; end; 我在clint端給它(id,i,j,v,x,y) id是edit的值 i.j是記錄ADOQuery的filecont跟recordcont v是記錄資料的陣列 x.y若是=true迴圈就把資料寫到stringgrid 這樣子有錯，請問各位大哥，我該做什麼修改謝謝

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.