想将数据读到DATAGRID中的模板TEXTBOX中。 高手帮看看呀。

Question

想将数据读到DATAGRID中的模板TEXTBOX中。 
 '读出记录
    Sub ReadRecord1(ByVal MoveNo As String)
        Dim mydt As DataTable = New DataTable
        Dim myda As SqlDataAdapter = Md_MMS.GetSqlDataAdapter
        myda.SelectCommand.CommandText = "SELECT MoveDetail.*, Material.MaterialName AS MaterialName, Material.Spec AS Spec, StorageTable.Amount AS Amount FROM MoveDetail INNER JOIN Material ON MoveDetail.MaterialCode = Material.MaterialCode INNER JOIN StorageTable ON Material.MaterialCode =StorageTable.MaterialCode"
        myda.SelectCommand.Parameters.Add("@MoveNo", SqlDbType.Char).Value = MoveNo
        myda.SelectCommand.Connection.Open()
        myda.Fill(mydt)
        Me.Dg_Items.DataSource = mydt
        Me.Dg_Items.DataBind()
        myda.SelectCommand.Connection.Close()
        Dim Tb1, Tb2, Tb7, Tb8, Tb9 As TextBox
        Dim Tb3, Tb4, Tb5, Tb6, Tb10 As String
        Dim i As Int16
        Try
            For i = 0 To Me.Dg_Items.Items.Count - 1
                Tb1 = CType(Me.Dg_Items.Items(i).Cells(0).FindControl("TB_MaterialCode"), TextBox) '物料号
                'CType(Me.Dg_Items.Items(i).Cells(0).Controls(1), TextBox).Text = "xxxx"
                Tb10 = CType(Me.Dg_Items.Items(i).Cells(1).Text, Char) '名称
                Tb6 = CType(Me.Dg_Items.Items(i).Cells(2).Text, Char) '规格
                Tb3 = CType(Me.Dg_Items.Items(i).Cells(3).Text, Char) '单位
                Tb4 = CType(Me.Dg_Items.Items(i).Cells(4).Text, Char) '单价
                Tb5 = CType(Me.Dg_Items.Items(i).Cells(5).Text, Char) '库存量
                Tb2 = CType(Me.Dg_Items.Items(i).Cells(6).FindControl("TB_PlanNum"), TextBox)
                Tb7 = CType(Me.Dg_Items.Items(i).Cells(7).FindControl("TB_TrueNum"), TextBox)
                Tb8 = CType(Me.Dg_Items.Items(i).Cells(8).FindControl("TB_CheckNum"), TextBox)
                'Tb9 = CType(Me.Dg_Items.Items(i).Cells(9).FindControl("TB_DiffNum"), TextBox)
            Next
            If mydt.Rows.Count < 0 Then
                Exit Sub
            End If
        Catch ex As Exception
            Me.Lb_Msg.Text = "出错：" + Server.HtmlEncode(ex.Message)
        End Try
    End Sub

Answer 1

看不懂你想做什么.
你该把DATAGRID的代码贴出来看看.