gridview循环问题

我有一个4列的gridview，其中三个是模板字段，用户可以输入所需信息，然后单击一个按钮将其提交给数据库。我有2个问题：gridview循环问题

当我点击我的按钮，在第一行的帖子
消失添加第二个行...的数据。我希望能够添加行，而不需要第一行的信息在多个记录条目情况下消失。我的代码如下：

Private Sub SetInitialRow() 
    Dim dts As New DataTable() 
    Dim drs As DataRow = Nothing 
    dts.Columns.Add(New DataColumn("Approval Date", GetType(String))) 
    dts.Columns.Add(New DataColumn("Total Amount", GetType(String))) 
    dts.Columns.Add(New DataColumn("Comments", GetType(String))) 
    dts.Columns.Add(New DataColumn("Initials", GetType(String))) 
    drs = dts.NewRow() 
    drs("Approval Date") = String.Empty 
    drs("Total Amount") = String.Empty 
    drs("Comments") = String.Empty 
    drs("Initials") = String.Empty 
    dts.Rows.Add(drs) 
    ViewState("CurrentTable") = dts 
    gvOLIAdj.DataSource = dts 
    gvOLIAdj.DataBind() 
End Sub 

Private Sub AddNewRowToGrid() 
    Dim rowIndex As Integer = 0 
    If ViewState("CurrentTable") IsNot Nothing Then 
     Dim dtCurrentTable As DataTable = DirectCast(ViewState("CurrentTable"), DataTable) 
     Dim drCurrentRow As DataRow = Nothing 
     If dtCurrentTable.Rows.Count > 0 Then 
      For i As Integer = 1 To dtCurrentTable.Rows.Count 
       'extract the TextBox values 
       Dim box1 As TextBox = DirectCast(gvOLIAdj.Rows(rowIndex).Cells(1).FindControl("txtAdjAppr"), TextBox) 
       Dim box2 As TextBox = DirectCast(gvOLIAdj.Rows(rowIndex).Cells(2).FindControl("txtAdjAmt"), TextBox) 
       Dim box3 As TextBox = DirectCast(gvOLIAdj.Rows(rowIndex).Cells(3).FindControl("txtCmmts"), TextBox) 
       drCurrentRow = dtCurrentTable.NewRow() 
       drCurrentRow("Approval Date") = box1.Text 
       dtCurrentTable.Rows(i - 1)("Total Amount") = box2.Text 
       dtCurrentTable.Rows(i - 1)("Comments") = box3.Text 
       'dtCurrentTable.Rows(i - 1)("Initials") = 
       rowIndex += 1 
      Next 
      dtCurrentTable.Rows.Add(drCurrentRow) 
      ViewState("CurrentTable") = dtCurrentTable 
      gvOLIAdj.DataSource = dtCurrentTable 
      gvOLIAdj.DataBind() 
     End If 
    Else 
     Response.Write("ViewState is null") 
    End If 
    'Set Previous Data on Postbacks 
    SetPreviousData() 
End Sub 

Private Sub SetPreviousData() 
    Dim rowIndex As Integer = 0 
    If ViewState("CurrentTable") IsNot Nothing Then 
     Dim dats As DataTable = DirectCast(ViewState("CurrentTable"), DataTable) 
     If dats.Rows.Count > 0 Then 
      For i As Integer = 0 To dats.Rows.Count - 1 
       Dim box1 As TextBox = DirectCast(gvOLIAdj.Rows(rowIndex).Cells(1).FindControl("txtAdjAppr"), TextBox) 
       Dim box2 As TextBox = DirectCast(gvOLIAdj.Rows(rowIndex).Cells(2).FindControl("txtAdjAmt"), TextBox) 
       Dim box3 As TextBox = DirectCast(gvOLIAdj.Rows(rowIndex).Cells(3).FindControl("txtCmmts"), TextBox) 
       box1.Text = dats.Rows(i)("Approval Date").ToString() 
       box2.Text = dats.Rows(i)("Total Amount").ToString() 
       box3.Text = dats.Rows(i)("Comments").ToString() 
       rowIndex += 1 
      Next 
     End If 
    End If 
End Sub 

Protected Sub btnAddNewRow_Click(sender As Object, e As EventArgs) Handles btnAddNewRow.Click 
    AddNewRowToGrid() 

End Sub

当我尝试写一个循环，将遍历每个模板字段的抢的数据，并把它放到我的数据库不承认，我有数据模板字段？这是我迄今无果试图...

Protected Sub btn_Update_Click(sender As Object, e As EventArgs) Handles btn_Update.Click 
    For Each row As GridViewRow In gvOLIAdj.Rows 
     For Each gv As GridViewRow In gvOLIAdj.Rows 
      Dim appDt As String = (Rows(rowIndex).Cells(1).FindControl("txtAdjAppr")), TextBox) 
      Dim approvalDt As String = CType(gv.FindControl("txtAdjAppr"), TextBox).Text 
      Dim totalAmt As String = CType(gv.FindControl("txtAdjAmt"), TextBox).Text 
      Dim comments As String = CType(gv.FindControl("txtcmmts"), TextBox).Text 
      Dim intitials As String = DirectCast(gv.FindControl("total"), TextBox).Text 
    Next 

End Sub

来源

2012-05-04 developthestars

请格式化您的问题，以便代码清晰可辨。 – PaulG

我做什么，当我提交它的变化我不知道我在做什么... – developthestars

在你AddNewRowToGrid方法，则需要执行以下操作：

  dtCurrentTable.Rows(i - 1)("Total Amount") = box2.Text 
      dtCurrentTable.Rows(i - 1)("Comments") = box3.Text

什么是错在这里是行的更新in dtCurrentTable.Rows（i - 1）。您正在更新您想要更新的行上面的值。

来源

2013-06-04 02:34:28 brpyne

gridview循环问题

回答

相关问题