请各位帮我看看我错在哪里?(100分)

  • 主题发起人 主题发起人 dlss
  • 开始时间 开始时间
D

dlss

Unregistered / Unconfirmed
GUEST, unregistred user!
边的代码执行BitBtn1Click时出现"Variant is not an array"错误
unit utThread;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, DBClient, MConnect, SConnect, Grids,
DBGrids;
type
TfmMain = class(TForm)
DBGrid1: TDBGrid;
SocketConnection1: TSocketConnection;
ClientDataSet1: TClientDataSet;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure OpenTable();
end;

TopenData = class(TThread)
private
{ Private declarations }
protected
procedure Execute;
override;
end;

var
fmMain: TfmMain;
implementation
{$R *.dfm}
procedure TfmMain.OpenTable();
begin
ClientDataSet1.Active:=false;
ClientDataSet1.Active:=true;
end;
procedure TopenData.Execute;
begin
{ Place thread code here }
fmMain.OpenTable;
end;

procedure TfmMain.BitBtn1Click(Sender: TObject);
var
newThread:TopenData ;
begin
newThread:=TopenData.Create(false);
end;

end.
 
呵呵~。。你没有吧ClientDataSet1相关的设置写出来或者还有服务端的执行代码也
没有说详细,想帮都帮不了。。。。没有人明白你再说什么。。。做什么。。。
你是不是定义了一个variant类型的变量?如果是先判断一下是否是数组类型:
if VarIsArray(你的变量名) then
begin

for I :=VarArrayLowBound(你的变量名)to VarArrayHighBound(你的变量名)do
begin
//
end;

end;
 
服务端很简单,什么代码也没写,用的是ADO连接方式,后台是Oracle8i,ADOQuery1的SQL属性:
select * from T_ZHQKB
放置了一个DataSetProvider1,Dataset属性为ADOQuery1,poAllowCommandTxt属性为True
 
后退
顶部