Adding row to top

sofabulousx3 · Apr 28, 2012

Is there a way to when I add a row to a datatable to have it appear on the top. It appears on the bottom even if I use InsertAt. Here is the code I am using to create my row. MyConnection.Open() Dim myRow As DataRow Dim DS As DataSet DS = new DataSet() MyCommand.Fill(DS, "empphone") MyDataGrid.DataSource=DS.Tables("empphone").DefaultView myRow = Ds.Tables("empphone").NewRow() myRow("build") = 0 myRow("exten") = 0 DS.Tables("empphone").Rows.Add(myRow) MyDataGrid.DataBind() MyConnection.Close()You have absolutely no control over how the database places your record. Just order it when you SELECT it out.The following example may help you. It adds a new row to the datatable during Page_load and places it in edit mode in the data grid. When you enter text in the edit row, it loops back (ie adds another blank row and places it in edit mode). This keeps the blank row of your datagrid at the top. Copy & paste it then save it as a regular aspx file. You should be able to run it in your browser with no problems. Good luck, Tom T <%@ Page Language="VB" Debug = "True" %> <%@ Import NameSpace="System.Data" %> <%@ Import NameSpace="System.Xml" %> <SCRIPT RUNAT="SERVER"> ' ================================================== ====== ' GOOD DEMO OF WORKING WITH DATA IN A DISCONNECTED STATE, ' THEN SAVING CHANGES ' BACK TO SOURCE DATABASE WHEN YOU'RE READY. ' ' CREATE DATASET, PRESERVE IN VIEWSTATE, ' ADD ENTRIES OR BLANK ROWS, BIND TO DATAGRID, ' EDIT DATAGRID, PRESERVE EDITS. ' POST EDITS BACK TO DATABASE WITH BUTTON CLICK. ' ================================================== ======= Dim objDataSet As New DataSet("objDataSet") Dim xmlTestTable As DataTable = objDataSet.Tables.Add("xmlTestTable") Dim strXML As String ' === PAGE_LOAD SUB. Sub Page_Load(obj as Object, e as EventArgs) ' === NEED TO SPECIFY COLUMNS SINCE A BLANK ROW CAN BE ADDED. With objDataSet.Tables("xmlTestTable") .Columns.Add("FName", System.Type.GetType("System.String")) .Columns.Add("LName", System.Type.GetType("System.String")) End With ' === FIRST TIME THRU, SAVE A COPY OF DATASET TO VIEWSTATE. If Not Page.IsPostBack Then FirstRow() objDGrid.EditItemIndex = 0 BindIt() End If GetIt() End Sub ' === SaveIt SUB CONVERTS DATASET TO XML AND PUTS IN VIEWSTATE. Sub SaveIt() strXML = objDataSet.GetXml() ViewState("strData")=strXML End Sub ' === GetIt SUB GET XMLSTRING FROM VIEWSTATE & RECREATES DATASET. Sub GetIt() If Not ViewState("strData") Is Nothing then objDataSet.Clear() strXML = ViewState("strData").ToString() Dim strReader As New System.IO.StringReader(strXML) objDataSet.Readxml(strReader) End If End Sub ' === ADD A NEW ROW WHEN PAGE IS FIRST LOADED. Sub FirstRow() GetIt() Dim AddaRow As DataRow = objDataSet.Tables("xmlTestTable").NewRow() AddaRow.Item("FName") = txtFName.Text AddaRow.Item("LName") = txtLName.Text objDataSet.Tables("xmlTestTable").Rows.Add(AddaRow) SaveIt() 'BindIt() End Sub ' === ADD A NEW ROW TO DATASET. BLANK ROW ENTRY IS OK. Sub AddRow(obj as Object, e as EventArgs) GetIt() Dim AddaRow As DataRow = objDataSet.Tables("xmlTestTable").NewRow() AddaRow.Item("FName") = txtFName.Text AddaRow.Item("LName") = txtLName.Text objDataSet.Tables("xmlTestTable").Rows.Add(AddaRow) SaveIt() ' SAVE REVISED DS TO VIEWSTATE. BindIt() ' REBIND REVISED DS TO GRID. txtFName.Text = "" ' CLEAR TEXTBOXES. txtLName.Text = "" End Sub ' === STANDARD SUB FOR BINDING DS TO DATAGRID. Sub BindIt() objDGrid.DataSource = objDataSet.Tables("xmlTestTable") objDGrid.DataBind() End Sub ' === EDIT LINK CLICKED ON DATAGRID. PUT GRID IN EDIT MODE. Sub EditGrid(obj as object, e as DataGridCommandEventArgs) GetIt() objDGrid.EditItemIndex = e.Item.ItemIndex SaveIt() BindIt() End Sub ' === CANCEL LINK CLICKED ON DATAGRID. Sub CancelGrid(obj as object, e as DataGridCommandEventArgs) GetIt() objDGrid.EditItemIndex = -1 SaveIt() BindIt() End Sub ' === UPDATE LINK CLICKED ON DATAGRID. UPDATE DATASET WITH EDITS. Sub UpDateGrid(obj As object, e As DataGridCommandEventArgs) Dim gRow As Integer = objDGrid.EditItemIndex ' ROW IN EDIT MODE. Dim txtFName As TextBox = e.Item.Cells(0).Controls(0) Dim txtLName As TextBox = e.Item.Cells(1).Controls(0) GetIt() ' GET COPY OF DS objDataSet.Tables("xmlTestTable").Rows(gRow)(0) = txtFName.text objDataSet.Tables("xmlTestTable").Rows(gRow)(1) = txtLName.text objDGrid.EditItemIndex = -1 ' TAKE GRID OUT OF EDIT MODE. SaveIt() ' SAVE CHANGES TO DS BindIt() ' RE-BIND GRID. End Sub ' === SUB TO SAVE DATASET CHANGES BACK TO SOURCE DATABASE. Sub SaveAll(obj as Object, e as EventArgs) Response.Write("Your DataBase Update Sub Would Run Now") End Sub </SCRIPT> <HTML><BODY> <FORM Runat="Server" EnableViewState = "True" > <ASP:Label id="lblMessage" runat="server" /> First Name:? <ASP:TextBox id="txtFName" Width="114" Runat="Server" /> ? Last Name:? <ASP:TextBox id="txtLName" Width="114" Runat="Server" /> <ASP:Button ID="btnSubmit" Text="Add New Row" Runat="Server" OnClick="AddRow" /> <ASP:Button ID="btnSave" Text="Save All" Runat="Server" OnClick="SaveAll" /> <ASP

ataGrid ID="objDGrid" Runat="Server" OnEditCommand = "EditGrid" OnCancelCommand = "CancelGrid" OnUpdateCommand = "UpdateGrid" Width = "350" AutoGenerateColumns = "False"> <Columns> <ASP:BoundColumn HeaderText = "First Name" DataField = "FName"> <ItemStyle Width = "150"/> </ASP:BoundColumn> <ASP:BoundColumn HeaderText = "Last Name" DataField = "LName"> <ItemStyle Width = "150"/> </ASP:BoundColumn> <ASP:EditCommandColumn EditText = "Add/Edit" CancelText = "Cancel" UpdateText = "Enter" ItemStyle-Wrap = "False" HeaderText = "Add/Edit" > <ItemStyle Font-Size = "8"/> </ASP:EditCommandColumn> </Columns> </ASP

ataGrid> </FORM> </BODY></HTML>You might want to try adding it to the datagrid after the bind. I've done something similar with a dropdownlist box while adding the default item to the top of the list after binding.

Adding row to top

sofabulousx3

New Member