<% @Import Namespace="System.Data" %>
<script language="vb" runat="server">
Sub Page_Load(sender as Object, e as EventArgs)
BindData()
End Sub
Sub BindData()
Dim pls as New DataTable()
Dim dr as DataRow
pls.Columns.Add(new DataColumn("Quarter", GetType(String)))
pls.Columns.Add(new DataColumn("Revenue", GetType(Double)))
pls.Columns.Add(new DataColumn("Profit", GetType(Double)))
dr = pls.NewRow()
dr(0) = "Q1 2001"
dr(1) = 450391000
dr(2) = 102200111
pls.Rows.Add(dr)
dr = pls.NewRow()
dr(0) = "Q2 2001"
dr(1) = 391000
dr(2) = -154950
pls.Rows.Add(dr)
dr = pls.NewRow()
dr(0) = "Q3 2001"
dr(1) = -150938000
dr(2) = -902200
pls.Rows.Add(dr)
dgPLStmt.DataSource = pls
dgPLStmt.DataBind()
End Sub
Function MakeNegRed(input as String) as String
'See if the number is less than 0
If Int32.Parse(input) < 0 then
Return "<font color=""red"">" & input & "</font>"
Else
Return input
End If
End Function
</script>
<asp:DataGrid runat="server" id="dgPLStmt" AutoGenerateColumns="False">
<Columns>
<asp:BoundColumn HeaderText="Quarter" DataField="Quarter" />
<asp:TemplateColumn HeaderText="P & L Statement">
<ItemTemplate>
<table border="0">
<tr>
<td align="right"><b>Revenue:</b></td>
<td><%# MakeNegRed(DataBinder.Eval(Container.DataItem, "Revenue")) %></td>
</tr>
<tr>
<td align="right"><b>Profit:</b></td>
<td><%# MakeNegRed(DataBinder.Eval(Container.DataItem, "Profit")) %></td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid>
|