如何使用pb做动态数据窗口,就是事先定义了sql语句,或者使用sqlserver储存过程,然后根据定义的sql语句/存储过程查询的内容根据列名自动生成列名和内容,大量报表需要制作,太吃力了,谢谢解答最好能上次实例。非常感谢!!
如何使用pb做动态数据窗口,并保存出excel,保存出excel我能实现。
在窗体上新建一数据窗口,不要指定DATAOBJECT,再建一个CB按钮,clicked事件中写入如下代码:运行即可 string us_code=""string lsdwsyntax,lsdwsyntax2 string lserr string lssqlstr string lserrc long k=1 lssqlstr="select * FROM 表名(视图名)"\/\/select * FROM 表名(视图名) 你根据你的...
PB中如何将数据窗口中的数据导出成excel表,就是添加导出控件中的代码该...
dw_1.saveas() \/\/--弹出将数据窗口的数据保存成文件的提示窗口 这样就行了,当数据窗口有内容时,点那个按钮,就出现保存的提示窗口,可以选择保存的位置、文件类型、文件名称。如果限制用户只能保存为excel,则可以这样:dw_1.SaveAs("D:\\abc.XLS", Excel!, TRUE) \/\/--具体解释见下面 以下为...
在PB中,把数据窗口导入到excel
第一个,导出的问题,可以通过数据窗口来完成,你把数据窗口的查询语法设置为从两个表查询就行了。然后使用数据窗口的saveas函数,保存为xls格式,就导出到excel中了。另外也可以通过DB画板,在ISQL SESSION页里面自己写查询语句,查询出结果后,然后在查询出结果的地方点右键选择save rows as...,然后...
求PB通过OLE来显示excel的方法(直接在PB窗口中显示修改保存)
pb控制,需要将eole改为 MyOLE=Create OLEObject ConnectErr=MyOLE.ConnectToNewObject ("excel.Application") 这个是必须的,名字为myole \/\/打开指定的XLS文件激活workbooks MyOLE.application.workbooks.Open (FilePath) \/\/对XLS文件进行了改动以后,在关闭该文件时是否需要向用户提出警告。 MyOLE.Applicat...
设计一个pb小程式,实现录入,查询和报表列印
设计一个pb小程式,实现录入,查询和报表列印 新建一个视窗,视窗中有一个数据视窗dw_1,然后建立资料视窗的dataobject,设定储存属性,上面增加至少四个按钮,录入,查询,储存,列印。 设定PB和资料库连线的SQLCA引数,连线资料库,开启视窗。 视窗的Open事件或者资料视窗的constructor事件或者其他可以...
...9.0中把当前数据窗口数据保存为excel文档的回答
li_rtn=datawin.saveas(ls_pathname,excel8!,true)excel8! 把他改成别的试试,你看看pb9的saveas格式
怎么用PowerBuilder打开psr文件并且保存为xls格式
PB(PowerBuilder)有一种以PSR结尾的特殊的保存报表的文件格式(本文简称作PSR文件)。当报表以PSR格式另存出来后,我们常常会不知道用什么方法再次打开它。下面将介绍打开的办法:1.先新建一空的库文件(PBL文件),这里命名为psropen,在库文件中的应用也命名为psropen。2.再创建一窗口w_psropen,...
pb,如何把字段名也输出到EXCEL表中,我只会把字段下的内容输出,字段名跟 ...
如果你用的是PB9以下的版本,可以直接到网上找找一个叫DW2XLS的PBL源程序,这个是做的最好的PB的导出EXCEL的程序了。好多软件公司都直接使用这个PBL来做EXCEL方面的导入导出。而且支持所见即所得的原样导出。还有,也可以自己先使用SAVEAS函数,导出的时候选XLS,把数据导出来。然后再使用修改EXCEL内容的...
pb如何将库表数据写入到excel里
return \/\/操作第一个excel文件 string ls_file3="C:\\mytest.xls"obook3=xlApp.Application.Workbooks.Open(ls_file3) \/\/打开文件 xlsub4 = xlapp.Application.ActiveWorkbook.Worksheets[1] \/\/激活第一页 \/\/对单元格赋值 xlsub4.cells[c,3].Value = string(mydata.getitemdecimal(r,'rs'))...
pb6.5技术,报表转存excel文件
if datawin.RowCount()<1 then MessageBox("提示信息","请先检索出数据再导出至Excel!")return -1 \/\/error end if li_rtn=GetFileSaveName("保存文件",ls_pathname,ls_name,"xls","Excel文件(*.xls),*.xls")if li_rtn=1 then lb_exist = FileExists(ls_path...