| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2338 人关注过本帖
标题:求助:怎么让数据库里的数据打印出来
只看楼主 加入收藏
cumtsc
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-12-24
收藏
 问题点数:0 回复次数:13 
求助:怎么让数据库里的数据打印出来
请教:打印出来的格式必须按照自己的要求,并且每个数据在固定的位置打印!谢谢各位高手多多指点!
搜索更多相关主题的帖子: 数据库 打印 
2007-12-24 15:41
fairy4
Rank: 4
等 级:贵宾
威 望:10
帖 子:738
专家分:267
注 册:2007-11-1
收藏
得分:0 
使用水晶報表!!

一个人只有一个心脏,却有两个心房。一个住着快乐;一个住着悲伤。不要笑得太大声,不然会吵醒旁边的悲伤
2007-12-24 18:03
cumtsc
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-12-24
收藏
得分:0 
我也用了水晶报表啊!但是有个问题啊!我在别的电脑上安装这个程序时,说那台电脑没有水晶报表,安装不上啊!我想用excel的方式打印我的数据!就是不知道应该怎么弄!代码怎么写
2007-12-25 10:25
fairy4
Rank: 4
等 级:贵宾
威 望:10
帖 子:738
专家分:267
注 册:2007-11-1
收藏
得分:0 
按自己要求把數據導出excel,并且設定好excel的格式!如有需要,可提供簡單代碼!
水晶報表打包時時需要把水晶報表的一些控件打包進去的,具體我也不會!可從網上查找資料! 我都是使用excel的!

一个人只有一个心脏,却有两个心房。一个住着快乐;一个住着悲伤。不要笑得太大声,不然会吵醒旁边的悲伤
2007-12-25 11:54
cumtsc
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-12-24
收藏
得分:0 
问题是我现在连把数据导入excel都不会啊!能不能给个导入实例啊!谢谢啦!我的QQ15471750,邮箱是[email]cumtsc@[/email]
2007-12-26 10:29
b629
Rank: 1
等 级:新手上路
帖 子:127
专家分:0
注 册:2007-12-29
收藏
得分:0 
先導出轉excel再打印 代碼網上很多的 baidu一下就可以了 嘿嘿
2008-01-03 08:54
b629
Rank: 1
等 级:新手上路
帖 子:127
专家分:0
注 册:2007-12-29
收藏
得分:0 
先導出轉excel再打印 代碼網上很多的 baidu一下就可以了 嘿嘿
2008-01-03 08:55
cumtsc
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-12-24
收藏
得分:0 
现在有出现了一个问题,我怎么才能把值填入excel指定的单元格中呢????我查了一下网上的代码,但是不能运行
各位高手帮我看看是哪里出错啦!
 Dim x As String
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            x = OpenFileDialog1.FileName
        End If
        Dim mExcel As Object = CreateObject("Excel.Application")
        Dim App As New Microsoft.Office.Interop.Excel.Application
        Dim xlBook As New Microsoft.Office.Interop.Excel.Workbook
        Dim xlSheet As New Microsoft.Office.Interop.Excel.Worksheet
        mExcel.Workbooks.Open(x)
        mExcel.Visible = True
        xlSheet.Cells(14, 4) = "0712001"
        App = Nothing '交还控制给Excel
        xlBook = Nothing
        xlSheet = Nothing
2008-01-03 09:56
b629
Rank: 1
等 级:新手上路
帖 子:127
专家分:0
注 册:2007-12-29
收藏
得分:0 
給你一個參考一下!
Sub ToExcel(ByVal ctl As System.Web.UI.Control)

        HttpContext.Current.Response.AppendHeader("Content-Disposition", "attachment;filename=Excel.xls")
        HttpContext.Current.Response.Charset = "UTF-8"
        HttpContext.Current.Response.ContentEncoding = System.Text.Encoding.Default
        HttpContext.Current.Response.ContentType = "application/ms-excel"
        ctl.Page.EnableViewState = False
        Dim tw As = New
        Dim hw As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(tw)
        ctl.RenderControl(hw)
        HttpContext.Current.Response.Write(tw.ToString())
        HttpContext.Current.Response.End()

    End Sub
2008-01-04 09:03
b629
Rank: 1
等 级:新手上路
帖 子:127
专家分:0
注 册:2007-12-29
收藏
得分:0 
"application/ms-excel"
是excel模板的名字
2008-01-04 09:04
快速回复:求助:怎么让数据库里的数据打印出来
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032393 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved