用循环呀,在循环中加判断。 将可选择报表名添加到CheckListBox中 for i:=0 to CheckListBox1.Items.Count -1 do begin if CheckListBox1.Checked[i]=True then begin if CheckListBox1.Items[i]='aa' then Print('aa'); if CheckListBox1.Items[i]='bb' then Print('bb'); end; end; //不知道能不能符合你的要求。
to konhon(优华无限) 你方法好象还是不行,这样的话我还一张张在给他打,用户还是要一个点打印确定下去的啊,不能连续打啊?
将可选择报表名添加到CheckListBox中 for i:=0 to CheckListBox1.Items.Count -1 do
begin
if CheckListBox1.Checked[i]=True then
begin
if CheckListBox1.Items[i]='aa' then
Print('aa');
if CheckListBox1.Items[i]='bb' then
Print('bb');
end;
end;
//不知道能不能符合你的要求。
你方法好象还是不行,这样的话我还一张张在给他打,用户还是要一个点打印确定下去的啊,不能连续打啊?