or
if
($telerik.isIE){document.attachEvent(
"onmousedown"
,
this
._onDocumentClickDelegate);<BR>document.attachEvent(
"oncontextmenu"
,
this
._onDocumentClickDelegate);<BR>}
else
{$telerik.addHandler(document,
"mousedown"
,
this
._onDocumentClickDelegate);<BR>$telerik.addHandler(document,
"contextmenu"
,
this
._onDocumentClickDelegate);
For Each r As DataRow In ds2.Tables(0).Rows
Dim item As New SeriesItem
Dim name As String = r.Item("FVID")
Dim vol As Integer = r.Item("total")
item.Name = name
item.YValue = vol
item.TooltipValue = name <-- NOT WORKING
barChartSeries.Items.Add(item)
Dim xaxis As New AxisItem(name)
BarChart.PlotArea.XAxis.Items.Add(xaxis)
Next
01.
Private
Sub
RadGrid1_GridExporting(sender
As
Object
, e
As
GridExportingArgs)
Handles
RadGrid1.GridExporting
02.
03.
If
isLoc <>
True
Then
04.
05.
Dim
ms
As
New
MemoryStream(
New
UTF8Encoding().GetBytes(e.ExportOutput))
06.
07.
Dim
smtpClient
As
New
SmtpClient()
08.
smtpClient.EnableSsl =
True
09.
10.
Dim
mailMessage
As
New
MailMessage()
11.
mailMessage.IsBodyHtml =
True
12.
mailMessage.[
To
].Add(
New
MailAddress(Session(
"Email"
)))
13.
mailMessage.Subject =
"Reporting service - Do Not reply"
14.
mailMessage.Body =
"This report was sent from <br /><b>Reporting service</b> "
15.
mailMessage.Attachments.Add(
New
Attachment(ms,
"Reporting service"
& DocType))
16.
Try
17.
smtpClient.Send(mailMessage)
18.
'Label1.Text = "Message Sent"
19.
MsgBox(
"Message Sent"
)
20.
Catch
ex
As
Exception
21.
'Label1.Text = ex.ToString()
22.
MsgBox(
"Message not Sent"
)
23.
End
Try
24.
25.
Response.Redirect(Request.Url.ToString())
26.
27.
28.
29.
End
If
30.
End
Sub