DATAGRID的一些应用（三）_datediff(day, senddatetime, getdate())-CSDN博客

1、如何用DataGrid实现根据日期判断是否显示New标志
页面代码如下：
   <asp:TemplateColumn>
    <ItemTemplate>
      <img src='<%# (Convert.ToInt16(DataBinder.Eval(Container.DataItem,"DayCount"))<15)? "images/new.gif" :
       "images/none.gif"%>' border="0" >
    </ItemTemplate>
   </asp:TemplateColumn>

后台代码：

"select id,Title,datediff(day,sendDate,getdate()) as DayCount from NewInfo"
//sendDate是一个DateTime类型的字段，是指发布日期

2、自动增加序列号的DATAGRID
<asp:DataGrid id="DataGrid1" runat="server" AutoGenerateColumns="False">
    <HeaderStyle Font-Bold="True" Wrap="False" HorizontalAlign="Center"></HeaderStyle>
    <Columns>
     <asp:TemplateColumn></asp:TemplateColumn>
    </Columns>
   </asp:DataGrid>

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGrid1.Columns(0).HeaderText = "序号"
    End Sub

    Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, _
    ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
        If e.Item.ItemIndex <> -1 Then
            e.Item.Cells(0).Text = e.Item.ItemIndex + 1
        End If

End Sub

3、单元格鼠标移动后改变颜色
Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
            '添加自定义属性，当鼠标移过来时设置该行的背景色为"#eaeaea",并保存原背景色
            e.Item.Attributes.Add("onmouseover", "currentcolor=this.style.backgroundColor;this.style.backgroundColor='#eaeaea'"
            '添加自定义属性，当鼠标移走时还原该行的背景色
            e.Item.Attributes.Add("onmouseout", "this.style.backgroundColor=currentcolor"
        End If

End Sub

4、DataGrid中TEXTBOX自动算价格
　　在DataGrid中有3个模板列包含Textbox分别为 DG_ShuLiang (数量) DG_DanJian(单价) DG_JinE(金额)分别在5.6.7列，要求在录入数量及单价的时候自动算出金额即:数量*单价=金额还要求录入时限制为数值型.我如何用客户端脚本实现这个功能?

　　〖思归〗

＜asp:TemplateColumn HeaderText="数量"＞
＜ItemTemplate＞
＜asp:TextBox id="ShuLiang" runat=’server’ Text=’＜%# DataBinder.Eval(Container.DataItem,"DG_ShuLiang"%＞’
οnkeyup="JavaScriptoCal()"
/＞

＜asp:RegularExpressionValidator id="revS" runat="server" ControlToValidate="ShuLiang" ErrorMessage="must be integer" ValidationExpression="^/d+＄" /＞
＜/ItemTemplate＞
＜/asp:TemplateColumn＞

＜asp:TemplateColumn HeaderText="单价"＞
＜ItemTemplate＞
＜asp:TextBox id="DanJian" runat=’server’ Text=’＜%# DataBinder.Eval(Container.DataItem,"DG_DanJian"%＞’
οnkeyup="JavascriptoCal()"
/＞

＜asp:RegularExpressionValidator id="revS2" runat="server" ControlToValidate="DanJian" ErrorMessage="must be numeric" ValidationExpression="^/d+(/./d*)?＄" /＞

＜/ItemTemplate＞
＜/asp:TemplateColumn＞

＜asp:TemplateColumn HeaderText="金额"＞
＜ItemTemplate＞
＜asp:TextBox id="JinE" runat=’server’ Text=’＜%# DataBinder.Eval(Container.DataItem,"DG_JinE"%＞’ /＞
＜/ItemTemplate＞
＜/asp:TemplateColumn＞＜script language="javascript"＞
function DoCal()
{
　var e = event.srcElement;
　var row = e.parentNode.parentNode;
　var txts = row.all.tags("INPUT";
　if (!txts.length || txts.length ＜ 3)
　　return;

　var q = txts[txts.length-3].value;
　var p = txts[txts.length-2].value;

　if (isNaN(q) || isNaN(p))
　　return;

　q = parseInt(q);
　p = parseFloat(p);

　txts[txts.length-1].value = (q * p).toFixed(2);
}
＜/script＞

5、将DataGrid中数据倒出Excel文件并下载

Imports System
Imports System.Text
Namespace toExcel

'功能：将ASP.net中DataGrid生成Excel文件下载。
'Mountains改进：1、支持中文 2、隐藏列不显示
'日期：2002.10.30
Public Class DataGridToCSV

Public Function GenerateFile(ByRef Page As System.Web.UI.Page, ByVal MyDataGrid As System.Web.UI.WebControls.DataGrid, ByVal FileName As String) As String

Dim resp As HttpResponse
Dim colCount As Integer = MyDataGrid.Columns.Count - 1

resp = Page.Response

resp.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312" '解决中文乱码之关键
'resp.Charset = "utf-8"
'resp.AddFileDependency(FileName)
'resp.ContentType = "Text/HTML"
'resp.AppendHeader("Content-Type", "text/html; charset=gb2312"

resp.AppendHeader("Content-Disposition", "attachment;filename=" + FileName) '必要，做成下载文件

Dim colHeaders As String = ""
Dim strItems As StringBuilder = New StringBuilder()

Dim myCol As DataGridColumn

Dim i As Integer

For i = 0 To colCount
myCol = MyDataGrid.Columns(i)
If myCol.Visible = True Then
colHeaders = colHeaders & myCol.HeaderText.ToString & ","
End If
Next

If colHeaders.Length > 0 Then
colHeaders = colHeaders.Substring(0, colHeaders.LastIndexOf(",")
End If

colHeaders = colHeaders & Chr(13) & Chr(10)

resp.Write(colHeaders)

Dim colRow As String

Dim item As DataGridItem

For Each item In MyDataGrid.Items
resp.Write(FormatExportRow(colCount, item, MyDataGrid))
Next item

resp.End()

End Function

Private Function FormatExportRow(ByVal colCount As Integer, ByVal Item As DataGridItem, ByVal MyDataGrid As System.Web.UI.WebControls.DataGrid) As String
Dim strItem As String
Dim i As Integer

For i = 0 To colCount
If MyDataGrid.Columns(i).Visible = True Then
If Item.Cells(i).Text Is System.DBNull.Value Then
Item.Cells(i).Text = ""
End If
If i = colCount Then
strItem += Item.Cells(i).Text.ToString & Chr(13) & Chr(10)
Else
strItem += Item.Cells(i).Text.ToString & ","
End If
End If
Next
strItem = Replace(strItem, " ", " "
Return strItem
End Function

End Class

End Namespace