<asp:TemplateField HeaderText="MemberID">
    <ItemTemplate>
        <asp:LinkButton ID="lbtn_memberid" runat="server" CommandName="GetMemberID" CommandArgument='<%# DataBinder.Eval(Container, "DataItem.memberid") %>'
            Text='<%# DataBinder.Eval(Container, "DataItem.memberid") %>'></asp:LinkButton>
    </ItemTemplate>
</asp:TemplateField>

<asp:TemplateField>
    <ItemTemplate>
        <asp:HiddenField ID="fieldid" runat="server" Value='<%# Eval("fieldname") %>' />
    </ItemTemplate>
</asp:TemplateField>

Back Code:

    Protected Sub gridview1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles gridview1.RowCommand

        If e.CommandName = "GetMemberID" Then

            Session("GetMemberID") = e.CommandArgument.ToString()

            Dim gv As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).NamingContainer, GridViewRow)

            Dim i As Integer = gv.RowIndex

            Dim row As GridViewRow = gridview1.Rows(i)

            Dim hidden As HiddenField = DirectCast(row.Cells(0).FindControl("fieldid"), HiddenField)

            Dim fieldid As Integer = CInt(hidden.Value)

        End If

    End Sub

1. This is how you use it

Dim fileAttch = New ArrayList
fileAttch.Add("C:\test.csv")
fileAttch.Add("C:\test2.csv")
fileAttch.Add("C:\test3.csv")

sendEmail.send(your_emailHost, "no-reply@company.com", your_EmailTo, your_EmailSubject, your_EmailBody, your_EmailccTo, fileAttch)

2. Create a class called sendEmail.vb

Imports System.IO
Imports System.Net.Mail
Imports Microsoft.VisualBasic
Imports System

Public Class sendEmail

    Public Shared Sub send(ByVal smtpHost As String, ByVal fromEmail As String, ByVal toEmail As String, ByVal subject As String, ByVal body As String, ByVal cc As String, Optional ByVal AttachmentFiles As ArrayList = Nothing)
        Dim mail As New MailMessage()

        '-----------------------------------
        'Set Email Address
        '-----------------------------------
        mail.From = New MailAddress(fromEmail)

        If toEmail = "" Then
            Throw New Exception("Error: No email address to send")
        End If
        If toEmail.Contains(";") Then
            Dim emailList As String()
            emailList = toEmail.Split(";")
            For Each email As String In emailList
                mail.To.Add(email)
            Next
        Else
            mail.To.Add(toEmail)
        End If
        If cc <> "" Then
            If cc.Contains(";") Then
                Dim ccList As String()
                ccList = cc.Split(";")
                For Each ccTo As String In ccList
                    mail.CC.Add(ccTo)
                Next
            Else
                mail.CC.Add(cc)
            End If
        End If

        '-----------------------------------
        'Set Email Address Content
        '-----------------------------------
        mail.Subject = subject
        mail.IsBodyHtml = True
        mail.Body = body

        Dim i As Integer
        Dim Attachment As System.Net.Mail.Attachment

        For i = 0 To AttachmentFiles.Count - 1
            If FileExists(AttachmentFiles(i)) Then
                Attachment = New Net.Mail.Attachment(AttachmentFiles(i))
                mail.Attachments.Add(Attachment)
            End If
        Next

        '-----------------------------------
        'Set Email Address Host
        '-----------------------------------
        Dim smtp As New SmtpClient(smtpHost)
        Try
            smtp.Send(mail)
        Catch ex As Exception
            '-------------------------------------------------
            MsgBox("Error " & ex.Message)
            '-------------------------------------------------
        End Try

    End Sub

    Private Shared Function FileExists(ByVal FileFullPath As String) As Boolean
        If Trim(FileFullPath) = "" Then Return False

        Dim f As New IO.FileInfo(FileFullPath)
        Return f.Exists

    End Function

End Class

Private Function GetFirstDayOfMonth(ByVal dtDate As DateTime) As DateTime
        Dim dtFrom As DateTime = dtDate
        dtFrom = dtFrom.AddDays(-(dtFrom.Day - 1))
        Return dtFrom
    End Function

    Private Function GetLastDayOfMonth(ByVal dtDate As DateTime) As DateTime
        Dim dtTo As New DateTime(dtDate.Year, dtDate.Month, 1)
        dtTo = dtTo.AddMonths(1)
        dtTo = dtTo.AddDays(-(dtTo.Day))
        Return dtTo
    End Function

'if you put code like:
GetFirstDayOfMonth("2010-05-05") ' It will return = 2010-05-01
GetLastDayOfMonth("2010-05-05") ' It will return = 2010-05-31

    Sub SetDataTable_To_CSV(ByVal dtable As DataTable, ByVal path_filename As String, ByVal sep_char As String)
        Dim writer As System.IO.StreamWriter
        Try
            writer = New System.IO.StreamWriter(path_filename)

            Dim _sep As String = ""
            Dim builder As New System.Text.StringBuilder
            For Each col As DataColumn In dtable.Columns
                builder.Append(_sep).Append(col.ColumnName)
                _sep = sep_char
            Next
            writer.WriteLine(builder.ToString())

            For Each row As DataRow In dtable.Rows
                _sep = ""
                builder = New System.Text.StringBuilder

                For Each col As DataColumn In dtable.Columns
                    builder.Append(_sep).Append(row(col.ColumnName))
                    _sep = sep_char
                Next
                writer.WriteLine(builder.ToString())
            Next
        Catch ex As Exception

        Finally
            If Not writer Is Nothing Then writer.Close()
        End Try
    End Sub

This is how you use it

Dim dt As New DataTable
SetDataTable_To_CSV(dt, "C:\test.csv", ",")

create new property inside partial class:
Double click on xxxTableAdaper and it will show you behind code in .vb file of xsd file. Add this code inside Partial Public Class xxxDataTableAdapter

Namespace xxxTableAdapters
    Partial Public Class yyyTableAdapter
        Public WriteOnly Property CommandTimeout() As Integer
            Set(ByVal value As Integer)
                Dim i As Integer = 0
                While (i < Me.CommandCollection.Length)
                    If (Me.CommandCollection(i) IsNot Nothing) Then
                        Me.CommandCollection(i).CommandTimeout = value
                    End If
                    i = (i + 1)
                End While
            End Set
        End Property
    End Class
End Namespace

And how you use it, you just add 1 line of code:

            Dim dt As New DataSet1TableAdapters.AddressTableAdapter
            dt.CommandTimeout = 120
            gridview1 = dt.GetData()

Notes:
xxxTableAdapters , xxx you replace with the name of .xsd file
yyyTableAdapter you replace with the name of table adapter

This code is tested in visual studio 2008

Custom Format Examples List:

And the data inside is :

The question is, How to sum OrderQty and LineTotal based on SalesOrderID?

Some people might said, why don’t you just group by in store procedure or SQL Query when you calling the database. Of course than can be done easily, but what if you get this data from webservices or from csv / textfile which is make imposible to query it. This is why the LINQ comes in hand to solve this problem (Correct me if im wrong )

How to use LINQ for this case:

First:

Imports System.Linq

Second:

Public Class Form2

    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dt As New DataSet1TableAdapters.SalesOrderDetailTableAdapter
        Dim result = From c In dt.GetData() Group c By c.SalesOrderID Into OrderQty = Sum(c.OrderQty), LineTotal = Sum(c.LineTotal) Select SalesOrderID, OrderQty, LineTotal
        Me.DataGridView1.DataSource = result.ToList()
    End Sub

End Class

Result:

So as you can see, at this line:

Dim result = From c In dt.GetData() Group c By c.SalesOrderID Into OrderQty = Sum(c.OrderQty), LineTotal = Sum(c.LineTotal) Select SalesOrderID, OrderQty, LineTotal

Result is the variable of the LINQ output, c is the variable of dt.GetData(), then you gtoup c by salesOrderID into new variable called OrderQty and so on. At the end you select the new variable that already sum / group by.

In order to shows the output to the datagridview, Im using result.ToList(). But there is a problem with this method, the sequnce of the column is based on alphabetical order. Even if I already set in datagridview poperties, it still back to the alphabetical sequence. I hope someone can answer this question.

This example is done in Visual Studio 2008.

If you want to see more detail about LINQ example, this is the good site:

http://msdn.microsoft.com/en-us/vcsharp/aa336746.aspx

Good luck.

The output of XML String:

<?xml version="1.0" encoding="utf-8" ?>
- <NewDataSet>
- <Table>
 <CONDOM>Durex</CONDOM>
 <SIZE>XL</SIZE>
 <QTY>123</QTY>
 <COLOR>616</COLOR>
 </Table>
 </NewDataSet>

In order to convert from XML to dataset, this is the code:

     Dim MyDS as new Dataset("Table1")
     Dim strReader As StringReader = New StringReader(YourXmlString)
     MyDS.ReadXml(strReader)

    <?xml version="1.0"?>
           <Product type="Condom">
                <CondomName>durex</CondomName>
                <ExpDate>False</ExpDate>
                <Type>False</Type>
                <Color>False</Color>
                <Qty>False</Qty>
            </Product>

Since this this is a string value, so we need to convert to xml node to be able to process.
So this is the code:

        Imports System.Xml
        Imports System.Xml.Serialization

        Dim xmlNodeList As System.Xml.XmlNodeList
        Dim xmlNode As System.Xml.XmlNode
        Dim XmlDoc As New XmlDocument

	Dim _condomName as String
	Dim _ExpDate as String
	Dim _Type as String
	Dim _color as String
	Dim _qty as String

        XmlDoc.LoadXml(result)
	'Select the 1st Xml Element
        xmlNodeList = XmlDoc.GetElementsByTagName("Product")
	'Because only 1 Product Element, so select index by 0
        xmlNode = xmlNodeList.Item(0)

        _condomName = xmlNode.SelectSingleNode("CondomName").InnerText
        _ExpDate = xmlNode.SelectSingleNode("ExpDate").InnerText
        _Type = xmlNode.SelectSingleNode("Type").InnerText
        _color = xmlNode.SelectSingleNode("Color").InnerText
        _qty = False 'xmlNode.SelectSingleNode("Qty").InnerText

If you have more than 1 product, you need to loop the xmlList:

For Each xmlNode As XmlNode In xmlNodeList
        _condomName = xmlNode.SelectSingleNode("CondomName").InnerText
        _ExpDate = xmlNode.SelectSingleNode("ExpDate").InnerText
        _Type = xmlNode.SelectSingleNode("Type").InnerText
        _color = xmlNode.SelectSingleNode("Color").InnerText
        _qty = False 'xmlNode.SelectSingleNode("Qty").InnerText
Next