-----------------------------------------------------------
New Message on BDOTNET
-----------------------------------------------------------
From: raja_blr
Message 6 in Discussion
Hi , Try this ..... Have a Public DataSet variable.I think u already have it (guess
from ur code) Sub BindGrid() Dim strConn As String =
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= '" & txtDSName1 & "';" & _
"Extended Properties=""Excel 8.0;"""
Dim myData As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn)
myData.TableMappings.Add("Table", "ExcelTest") myData.Fill(myDataset)
DataGrid1.DataSource = myDataset.Tables(0).DefaultView
DataGrid1.DataBind() End Sub
Sub MyDataGrid_Update(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
Dim Cols As String() = {"Year", "Month", "DomListCos", "ForListCos", "TotalListCos",
"DomStocks", "ForStocks", "TotalStocks", "SharesOut", "DomMktCapLocal",
"TotalMktCapLocal", "MktCapConc", "Trades", "DomNumShares", "TotalNumShares",
"DomValSharesLocal", "TotalValSharesLocal", "TradValConc", "PriceEarnings",
"PriceBookValue", "DivYield"} Dim I As Integer
/* *****IMPORTANT *******
Fill the dataset from session value or anyother hidden state value */ myDataset =
(DataSet) Session["datasetname"] ; // C# code .change to VB.NET code
For I = 0 To 20
Dim CurrentTextBox As System.Web.UI.WebControls.TextBox CurrentTextBox =
e.Item.FindControl("edit_" & Cols(I))
Dim ColValue As String = CurrentTextBox.Text If ColValue <> "" Then
myDataset.Tables("0").Rows(0).Item(I) = CDbl(ColValue)
Else
myDataset.Tables(0).Rows(0).Item(I) = "0.0" End If
Next DataGrid1.EditItemIndex = -1 BindGrid() /* Error this will overwrite your
Datagrid */ /* use the following code. */ DataGrid1.DataSource =
myDataset.Tables(0).DefaultView
DataGrid1.DataBind() End Sub
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
