高分求解几个问题:Asp.Net 导成excel,DataGrid和Datalist相互嵌套使用。。。

Cathy1 2003-08-21 05:21:58
1、Asp.Net 怎样导成Excel(客户端),能让客户选择保存路径。
2、怎样 DataGrid和Datalist相互嵌套使用。
谢谢各位大侠。
...全文
60 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
Cathy1 2003-08-22
  • 打赏
  • 举报
回复
谢谢各位,结帖了,希望今后多多支持
StudyNet 2003-08-22
  • 打赏
  • 举报
回复
学习。
xunx 2003-08-22
  • 打赏
  • 举报
回复
up
xunx 2003-08-22
  • 打赏
  • 举报
回复
^_^帮你UP一下
caoit 2003-08-21
  • 打赏
  • 举报
回复
up
xunx 2003-08-21
  • 打赏
  • 举报
回复
在给你一个Excel的也算是客户端的吧,牵强一点。

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Excel.aspx.vb" Inherits="Test.Excel"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>Exporting Data To Excel, using COM Interop and OWC</title>
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
Export File Name:
<asp:textbox id="xlfile" Runat="server"></asp:textbox><asp:button id="export2excel" Runat="server" Text="Export to Excel"></asp:button><br>
<br>
<asp:datagrid id="DataGrid1" runat="server"></asp:datagrid>
<asp:Button id="Button1" runat="server" Text="Button"></asp:Button></form>
</body>
</HTML>


Imports System.Data.SqlClient
Imports OWC

Public Class Excel
Inherits System.Web.UI.Page
Protected WithEvents xlfile As System.Web.UI.WebControls.TextBox
Protected WithEvents export2excel As System.Web.UI.WebControls.Button
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Private sql As SqlCommand
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Private conn As SqlConnection
#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
BindGrid()
End Sub
Private Sub BindGrid()
conn = New SqlConnection("Initial Catalog=Northwind;Data Source=127.0.0.1;uid=sa;pwd=sa")
sql = New SqlCommand("select * from products", conn)
conn.Open()
Dim reader As SqlDataReader
reader = sql.ExecuteReader()
DataGrid1.DataSource = reader
DataGrid1.DataBind()
reader.Close()
conn.Close()
End Sub
Private Sub WriteDataGrid2Excel()
Dim xlsheet As New SpreadsheetClass()
conn.Open()
Dim reader As SqlDataReader
reader = sql.ExecuteReader()
Dim numbercols As Int16
numbercols = reader.FieldCount
Dim row As Int16 = 1
Dim i As Int16
While reader.Read()
For i = 0 To numbercols - 1
xlsheet.ActiveSheet.Cells(row, i + 1) = reader.GetValue(i).ToString()
Next
row += 1
End While
reader.Close()
conn.Close()
'xlsheet.ActiveSheet.Export()
Try
xlsheet.ActiveSheet.Export(Server.MapPath(".") + "\wx.xls", OWC.SheetExportActionEnum.ssExportActionNone)
Catch e As Exception
Dim wx As String
wx = e.Message
End Try
Response.Redirect("wx.xls")

End Sub

Private Sub export2excel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles export2excel.Click
Dim xlApp, xlBook, XlSheet


xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.add
XlSheet = xlBook.Worksheets(1)
xlApp.Caption = "test表"
XlSheet.name = "test表"

XlSheet.Rows("1:1").RowHeight = 36.6
XlSheet.Range("A1").FormulaR1C1 = "test"
XlSheet.Range("A1").Font.Bold = True
XlSheet.Range("A1").Font.ColorIndex = 3
XlSheet.Range("A1").Font.Size = 16

xlApp.Visible = True

'xlApp = Nothing
'xlBook = Nothing
'XlSheet = Nothing
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WriteDataGrid2Excel()
End Sub
End Class
xunx 2003-08-21
  • 打赏
  • 举报
回复
给你一个 DataList In datagrid example
Imports System.Data.SqlClient
Public Class DataListInGrid
Inherits System.Web.UI.Page
Protected WithEvents Authors_DataGrid As System.Web.UI.WebControls.DataGrid
Private conn As SqlClient.SqlConnection

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not IsPostBack Then
conn = New SqlConnection("Server=fyp;UID=sa;PWD=sa;Database=Northwind")
conn.Open()
BindData()
End If
End Sub
Sub BindData()
Dim cmdSql As SqlCommand
Dim dapSql As SqlDataAdapter = New SqlDataAdapter()

Dim dtCustomer As New DataSet()
Dim strQ As String
Try
strQ = "select top 10 * from Categories"
cmdSql = New SqlCommand(strQ, conn)

dapSql.SelectCommand = cmdSql
'conn.Open()
dapSql.Fill(dtCustomer)
Authors_DataGrid.DataSource = dtCustomer
Authors_DataGrid.DataBind()
Catch
Throw
End Try

End Sub


Private Sub Authors_DataGrid_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles Authors_DataGrid.ItemDataBound
If (e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item) Then
Dim Datalist1 As DataList
Dim drv As DataRowView
Dim strID As String
Dim strQ As String
Datalist1 = CType(e.Item.FindControl("Titles_DataList"), DataList)
drv = CType(e.Item.DataItem, DataRowView)
strID = drv("CategoryID").ToString
strQ = "Select * from Products where CategoryID = " & strID
Datalist1.DataSource = GetDataSet(strQ)
Datalist1.DataBind()
End If
End Sub
Function GetDataSet(ByVal strQ As String) As DataSet
Dim cmdSQL As SqlCommand
Dim dapSQL As SqlDataAdapter = New SqlDataAdapter()
Dim dtOrder As New DataSet()
cmdSQL = New SqlCommand(strQ, conn)

dapSQL.SelectCommand = cmdSQL

dapSQL.Fill(dtOrder)
Return dtOrder
End Function
End Class


<%@ Page Language="vb" AutoEventWireup="false" Codebehind="DataListInGrid.aspx.vb" Inherits="Test.DataListInGrid"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>DataListInGrid</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:datagrid id="Authors_DataGrid" Runat="server" BorderColor="White" BorderStyle="Ridge" CellSpacing="1" BorderWidth="2px" BackColor="White" CellPadding="3" GridLines="Horizontal" AutoGenerateColumns="False" AllowSorting="True" AllowPaging="True" PageSize="7">
<ItemStyle ForeColor="Black" BackColor="#DEDFDE"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="#E7E7FF" BackColor="#4A3C8C"></HeaderStyle>
<FooterStyle ForeColor="Black" BackColor="#C6C3C6"></FooterStyle>
<Columns>
<asp:BoundColumn DataField="CategoryID" SortExpression="CategoryID" HeaderText="CategoryID"></asp:BoundColumn>
<asp:BoundColumn DataField="CategoryName" SortExpression="CategoryName" HeaderText="CategoryName"></asp:BoundColumn>
<asp:TemplateColumn HeaderText="Product">
<ItemTemplate>
<asp:datalist id="Titles_DataList" Runat="server" BorderColor="#CC9966" BorderStyle="None" BorderWidth="1px" BackColor="White" CellPadding="4" ShowHeader="False">
<AlternatingItemStyle ForeColor="Navy" />
<ItemStyle ForeColor="Blue" BackColor="#DEDFDE" />
<ItemTemplate>
<%# DataBinder.Eval(Container.DataItem, "ProductName") %>
</ItemTemplate>
</asp:datalist>
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
<PagerStyle HorizontalAlign="Right" ForeColor="Black" BackColor="#C6C3C6" Mode="NumericPages"></PagerStyle>
</asp:datagrid>
</form>
</body>
</HTML>
Cathy1 2003-08-21
  • 打赏
  • 举报
回复
谢谢各位大侠。分不够可以再加
大家好,又见面了!EasyUI又更新了,这次更新内容还是不少的,具体内容请参考下面的更新说明,官方的更新说明中还少了1条,我给补上了。 jQuery EasyUI 1.3.5版本更新内容: Bug(修复) searchbox:修复“searcher”函数提供的“name”参数值错误的问题; combo:修复“isValid”方法无法返回布尔值的问题; combo:修复点击页面某一个combo组件的下拉列表时触发的“onHidePanel”事件会导致页面上其他combo组件的下拉列表被关闭的问题; combogrid:修复某些从combo组件继承来的方法无法使用问题。 Improvement(改进) datagrid:改进检查行时候的性能; menu:允许追加菜单分隔符; menu:新增“hideOnUnHover”属性用于在鼠标离开菜单的时候指示是否需要隐藏菜单; slider:新增“clear”和“reset”方法; tabs:新增“unselect”方法、“onUnselect”事件; tabs:新增“selected”属性,用于指定的默认打开的面板; tabs:Tab Panel(Tab页)新增“collapsible”属性,用于设置是否允许摺叠面板; tabs:新增“showHeader”属性、“showHeader”方法和“hideHeader”方法; combobox:允许“disabled”属性禁用下拉列表选项; tree:改进数据加载时候的性能; pagination:新增“layout”属性,用于自定义控件的样式布局; accordion:新增“unselect”方法、“onUnselect”事件; accordion:新增“select”和“multiple”属性; accordion:新增“getSelections”方法; datebox:新增“sharedCalendar”属性,允许多个datebox控件共享使用同一个calendar控件。 datebox:新增“buttons”属性,用于自定义日历下方的按钮。 (译者注:该点更新内容官方更新公告上没有注明,具体内容和用法请看datebox的API。) 历史版本: - jQuery EasyUI 1.3.4 离线API简体中文版 http://download.csdn.net/detail/richie696/6302785 - jQuery EasyUI 1.3.4 离线API简体中文版 http://download.csdn.net/detail/richie696/5363933
asp.net操作Excel总结 - -Tag: asp.net操作Excel总                                           asp.net操作Excel总结 Posted on 2005-06-15 14:25 任宇 阅读(1758) 评论(0)  编辑 收藏 收藏至365Key

62,025

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧