100分！在线急等： DataGrid更新中CType(e.Item.Cells(2).Controls(0), TextBox).Text获值问题

[luckin]

在页面只有一个DataGrid的时候，可以很好的更新。在一个页面里有4，5个DataGrid的时候，用CType(e.Item.Cells(2).Controls(0), TextBox).Text获得的值却是原来的值，不是TextBox里面的新值。
请高手指教，附上aspx.vb


Imports System.Data.SqlClient
Public Class xgService
Inherits System.Web.UI.UserControl

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
Protected WithEvents SelectedCarService As System.Web.UI.WebControls.DataGrid
Protected WithEvents CarServiceDg As System.Web.UI.WebControls.DataGrid
Protected WithEvents SaveBtn As System.Web.UI.WebControls.Button
Protected WithEvents YeWuIDTxt As System.Web.UI.WebControls.Label

'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region
Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("connectionstring"))
Dim ds As New DataSet
Dim carDa As New SqlDataAdapter
Dim carSelect As DataTable
Dim carserV As DataView

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim idstr As String = Request.Params("id")
YeWuIDTxt.Text = "业务编号" & idstr & "的服务"
'运输类服务
Dim CarServiceDa As New SqlDataAdapter("SELECT Resource_Name, Price FROM Resource_Table WHERE (Resource_Type = '运输类')", conn)
CarServiceDa.Fill(ds, "carservice")
CarServiceDg.DataSource = ds.Tables("carservice")
CarServiceDg.DataBind()
'客户选择的运输类服务
getsource()
binddata()

End Sub

Sub CarServiceDg_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles CarServiceDg.ItemCommand
Dim dr As DataRow = carSelect.NewRow
dr("resource_name") = e.Item.Cells(0).Text
dr("price") = e.Item.Cells(1).Text
dr("quantity") = "1"
carSelect.Rows.Add(dr)
binddata()
End Sub


Sub SelectedCarService_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles SelectedCarService.ItemCommand
Dim ResourceName As String = e.Item.Cells(0).Text
If CType(e.CommandSource, LinkButton).CommandName = "deleteservice" Then
carserV.RowFilter = "resource_name='" & ResourceName & "'"
If carserV.Count > 0 Then
carserV.Delete(0)
Else
carserV.RowFilter = ""
End If
End If
getsource()
binddata()
End Sub


Sub getsource()
Dim idstr As String = Request.Params("id")
carDa.SelectCommand = New SqlCommand("SELECT Resource_Name, Price, Quantity FROM Service_Table WHERE (Ye_Wu_ID = '" & idstr & "') AND (Resourse_Type = '运输类服务')", conn)
If Session("carservice") Is Nothing Then
carDa.Fill(ds, "carselect")
carSelect = ds.Tables("carselect")
Session("carservice") = carSelect
Else
carSelect = CType(Session("carservice"), DataTable)
End If
carserV = New DataView(carSelect)
End Sub


Sub binddata()
SelectedCarService.DataSource = carserV
SelectedCarService.DataBind()
End Sub

Sub SelectedCarService_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles SelectedCarService.EditCommand
SelectedCarService.EditItemIndex = e.Item.ItemIndex
binddata()
End Sub

Sub SelectedCarService_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles SelectedCarService.CancelCommand
SelectedCarService.EditItemIndex = -1
binddata()
End Sub


Sub SelectedCarService_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles SelectedCarService.UpdateCommand
Dim resourceName As String = e.Item.Cells(0).Text
Dim price As String = e.Item.Cells(1).Text
Dim quantity As String = CType(e.Item.Cells(2).Controls(0), TextBox).Text
'这里无法获得新值
carserV.RowFilter = "resource_name='" & resourceName & "'"
If carserV.Count > 0 Then
carserV.Delete(0)
Else
carserV.RowFilter = ""
End If

Dim dr As DataRow = carSelect.NewRow
dr("resource_name") = resourceName
dr("price") = price
dr("quantity") = quantity
carSelect.Rows.Add(dr)
SelectedCarService.EditItemIndex = -1
getsource()
binddata()
End Sub
End Class

[luckin]

他的功能是点按钮后，把一个DataGrid的内容，放入第二个DataGrid，并可以在第二个DataGrid里面修改值

[exboy]

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

-- 下面的代码一定要放在 IsPostBack 里面

If Not IsPostBack Then

'在此处放置初始化页的用户代码
Dim idstr As String = Request.Params("id")
YeWuIDTxt.Text = "业务编号" & idstr & "的服务"
'运输类服务
Dim CarServiceDa As New SqlDataAdapter("SELECT Resource_Name, Price FROM Resource_Table WHERE (Resource_Type = '运输类')", conn)
CarServiceDa.Fill(ds, "carservice")
CarServiceDg.DataSource = ds.Tables("carservice")
CarServiceDg.DataBind()
'客户选择的运输类服务
getsource()
binddata()

End If

End Sub

[savagewang1978]

If Not IsPostBack Then

'在此处放置初始化页的用户代码
Dim idstr As String = Request.Params("id")
YeWuIDTxt.Text = "业务编号" & idstr & "的服务"
'运输类服务
Dim CarServiceDa As New SqlDataAdapter("SELECT Resource_Name, Price FROM Resource_Table WHERE (Resource_Type = '运输类')", conn)
CarServiceDa.Fill(ds, "carservice")
CarServiceDg.DataSource = ds.Tables("carservice")
CarServiceDg.DataBind()
'客户选择的运输类服务
getsource()
binddata()

End If

[swzlxm]

ctype(e.item.findcontrol("controlname"),textbox)

[luckin]

这个方法我试了
这段代码本身没有问题
但是我把几个这样的DataGrid放在一起，就不行了
要更新的DataGrid是在getsource() binddata()里面帮定的数据