ASP.NET

<br />
Protected Sub gridExpenses_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles gridExpenses.RowDataBound<br />
        Dim conn As New SqlConnection<br />
        Dim cmd As New SqlCommand<br />
        Dim da As New SqlDataAdapter<br />
        Dim ds As New DataSet<br />
        Dim dt As New DataTable<br />
        Dim conString As String<br />
        Dim rdr As SqlDataReader<br />
        Dim row As GridViewRow = e.Row<br />
        Dim i As Integer = row.RowIndex<br />
        <br />
        conString = System.Configuration.ConfigurationManager.AppSettings("connString")<br />
        conn = New SqlConnection(conString)<br />
<br />
        If (row.RowType = DataControlRowType.DataRow) Then<br />
            'If (row.RowState = DataControlRowState.Edit) Then<br />
            If row.RowState = DataControlRowState.Edit OrElse row.RowState = (DataControlRowState.Edit Or DataControlRowState.Alternate) Then<br />
                Dim cmcd As DropDownList = CType(row.FindControl("comboCmcd2"), DropDownList)<br />
                conn.Open()<br />
                cmd = conn.CreateCommand<br />
                cmd.CommandText = "SELECT mcom_idno, mcom_cmnm FROM tbl_mcom"<br />
                rdr = cmd.ExecuteReader<br />
                cmcd.DataSource = rdr<br />
                cmcd.DataBind()<br />
                cmcd.SelectedIndex = 0<br />
                conn.Close()<br />
            End If<br />
        End If<br />
    End Sub<br />
<br />
    Protected Sub gridExpenses_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles gridExpenses.RowEditing<br />
        Dim conn As New SqlConnection<br />
        Dim cmd As New SqlCommand<br />
        Dim cmd2 As New SqlCommand<br />
        Dim da As New SqlDataAdapter<br />
        Dim ds As New DataSet<br />
        Dim dt As New DataTable<br />
        Dim conString As String<br />
<br />
        conString = System.Configuration.ConfigurationManager.AppSettings("connString")<br />
        conn = New SqlConnection(conString)<br />
<br />
        gridExpenses.EditIndex = e.NewEditIndex<br />
<br />
        conn.Open()<br />
        cmd = conn.CreateCommand<br />
        cmd.CommandText = "SELECT e.mexp_idno, e.mexp_mnth, e.mexp_year, e.mexp_amnt, e.mexp_cmid, c.mcom_cmnm FROM tbl_mexp e, tbl_mcom c WHERE e.mexp_cmid = c.mcom_idno"<br />
        da.SelectCommand = cmd<br />
        da.Fill(ds, "mexp")<br />
        dt = ds.Tables("mexp")<br />
        gridExpenses.DataSource = ds.Tables("mexp").DefaultView<br />
        gridExpenses.DataBind()<br />
    End Sub<br />

<br />
<EditItemTemplate><br />
                                                                                                                        <asp:DropDownList ID="comboCmcd2" runat="server" DataTextField="mcom_cmnm"<br />
                                                                                                                            DataValueField="mexp_cmid" SelectedValue = '<%# Bind("mexp_cmid") %>'><br />
                                                                                                                        </asp:DropDownList><br />
                                                                                                                    </EditItemTemplate><br />

 Public Function UpdateDs(ByVal QueryStr As String, ByVal ds As DataSet) As Boolean<br />
<br />
        Dim DataSet1 As System.Data.DataSet = New System.Data.DataSet<br />
        dbConn = New System.Data.SqlClient.SqlConnection<br />
        dbConn.ConnectionString = conStr<br />
        Dim adp As New System.Data.SqlClient.SqlDataAdapter(QueryStr, dbConn)<br />
        adp.Fill(DataSet1)<br />
<br />
        <br />
        Try<br />
            DataSet1 = ds.Copy<br />
            adp.Fill(DataSet1)<br />
            adp.Update(DataSet1)<br />
        Catch ex As Exception<br />
<br />
            Return False<br />
        End Try<br />
        <br />
    End Function