事件写在那,调用dbgrid的那些属性呢!!!!
解决方案 »
- List index out of bound of(1)
- ADOConnection连接SQLServer数据库,超时时间已经设置为2,可是不起作用啊
- 为什么我的delphi报表在运行时窗体上不显示caption内容
- 证卡打印机打印卡片问题?
- 各位,请问如何做到点击按钮就可找到http://www.china.com 网站!(DELPHI6.0)
- 奇怪的窗口问题???
- 这样一句简单的数据库操作语句为什么会出错?
- 怎样让dbcombobox读出某字段的全部内容
- 怎样将RichEdit的某一行标上不同颜色??
- SendMessage(hwnd,WM_SYSCOMMAND, SC_CLOSE,0);//关闭窗体的问题
- 动态生成的ADOQuery控件到底能不能完全释放?动态生成数据控件再使用效率如何?请指教!
- DELPHI7安装后如何注册?
把这些数据复制到一个临时表(可以用控件模拟,如TClientDataSet)中
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBook(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin if (j>0) then s:=s+', ';
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= '';
end;
end;
打印的是否设置过滤条件Filter:=''
打印的时候只要对数据集进行过滤