苦
苦海无边
Unregistered / Unconfirmed
GUEST, unregistred user!
....
deptidmax:integer;
.....
procedure TForm1.SpeedButton4Click(Sender: TObject);
var
i: integer;
tempid: integer;
begin
if (combobox6.Text = '') or (combobox7.Text = '') then
begin
showmessage('请选择考勤的年度和月份。');
if combobox6.Text = '' then combobox6.SetFocus
else combobox7.SetFocus;
end
else
begin
[red] d := vararraycreate([1, deptidmax], varstring);//这句话报错[/red]
for i := 1 to deptidmax do
begin
if checklistbox1.Checked then d := checklistbox1.Items.Strings;
tempid := tempid + 1;
end;
for i := 1 to tempid do
begin
if not query_post.Active then query_post.Open;
with query_post do
begin
close;
sql.Clear;
sql.Add('select type ,count(type) as num from sgin group by type');
sql.Add('where year(date)=:yy and month(date)=:mm');
Parameters.ParamByName('yy').Value := strtoint(combobox6.text);
parameters.parambyname('mm').Value := strtoint(combobox7.Text);
open;
end;
end;
d.free;
end;
end;
错误信息为error creating variant array.
不知道如何解决。
deptidmax:integer;
.....
procedure TForm1.SpeedButton4Click(Sender: TObject);
var
i: integer;
tempid: integer;
begin
if (combobox6.Text = '') or (combobox7.Text = '') then
begin
showmessage('请选择考勤的年度和月份。');
if combobox6.Text = '' then combobox6.SetFocus
else combobox7.SetFocus;
end
else
begin
[red] d := vararraycreate([1, deptidmax], varstring);//这句话报错[/red]
for i := 1 to deptidmax do
begin
if checklistbox1.Checked then d := checklistbox1.Items.Strings;
tempid := tempid + 1;
end;
for i := 1 to tempid do
begin
if not query_post.Active then query_post.Open;
with query_post do
begin
close;
sql.Clear;
sql.Add('select type ,count(type) as num from sgin group by type');
sql.Add('where year(date)=:yy and month(date)=:mm');
Parameters.ParamByName('yy').Value := strtoint(combobox6.text);
parameters.parambyname('mm').Value := strtoint(combobox7.Text);
open;
end;
end;
d.free;
end;
end;
错误信息为error creating variant array.
不知道如何解决。