ส่งข้อมูลอีกฟอร์มมาใส่ใน textbox ที่อยู่ในกริดวิวของอีกฟอร์มหนึ่ง

Option Strict On
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
Partial Public Class FormDictionary_Core
    Inherits System.Web.UI.Page
    Dim dr As SqlDataReader
    Dim strConn As String = WebConfigurationManager.ConnectionStrings("EvaluationConnectionString").ConnectionString
    Dim conn As New SqlConnection(strConn)
    Dim cmd As New SqlCommand
    Dim dt As New DataTable
    Dim mycomm As SqlCommand
    Dim datestert As Date
    Dim dateend As Date
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       
        TextBox1.Text = iddetailCore
    
        Dim crsState As String = ""
        Dim sqlAddCrs As String = ""
        Dim sqlAddDtl As String = ""
        Dim sql2 As String = ""
        Dim sql3 As String = ""
        Dim sql4 As String = ""
        Dim sql5 As String = ""
        Dim cmd As New SqlCommand
        Dim daChk As SqlDataAdapter
        Dim dsChk As New DataSet
        Dim addChk As Boolean = True
        Dim sqlselect As String = ""
        Dim unitid As String = ""
        Dim countt As Double = 0
        conn.Close()
        conn.Open()
        Try

            sqlselect = "Select core,Detail,D1,D2,D3,D4,D5  from Core_Competency where id_core ='" & TextBox1.Text & "'"
            cmd = New SqlCommand()
            dsChk.Clear()
            daChk = New SqlDataAdapter(sqlselect, conn)
            daChk.Fill(dsChk, " Core_Competency")
            With cmd
                .CommandType = CommandType.Text
                .CommandText = sqlselect
                .Connection = conn
                dr = .ExecuteReader()
            End With
            dr.Read()
            If dr.HasRows Then
                Label3.Text = CStr(dr(0))
                Label15.Text = CStr(dr(1))
                Label9.Text = CStr(dr(2))
                Label10.Text = CStr(dr(3))
                Label12.Text = CStr(dr(4))
                Label13.Text = CStr(dr(5))
                Label14.Text = CStr(dr(6))
            End If
            dr.Close()



        Catch ex As Exception

        End Try
    End Sub

    Sub Page_UnLoad()
        conn.Close()
        conn = Nothing
    End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Try

            If TextBox2.Text <> " " Then


                If IsNumeric(TextBox2.Text) Then
                    Dim c1 As Double
                    Dim c2 As Double
                    Dim c3 As Double
                    Dim c4 As Double
                    Dim c5 As Double
                    Dim sum As Double
                    Dim avg1 As Double
                    Dim avg2 As Double
                    'Dim summ As Double
                    c1 = CDbl(Double.Parse(TextBox2.Text).ToString)
                    c2 = CDbl(Double.Parse(TextBox3.Text).ToString)
                    c3 = CDbl(Double.Parse(TextBox4.Text).ToString)
                    c4 = CDbl(Double.Parse(TextBox5.Text).ToString)
                    c5 = CDbl(Double.Parse(TextBox6.Text).ToString)

                    sum = c1 + c2 + c3 + c4 + c5
                    avg1 = (c1 * 1) + (c2 * 2) + (c3 * 3) + (c4 * 4) + (c5 * 5)
                    avg2 = avg1 / 100

                    If sum <> 100 Then
                        Label30.Text = "คุณกรอกคะแนนไม่เท่า 100% กรุณาแก้ไขคะแนนค่ะ"
                        lblavg.Text = "0.0"
                        Label31.Text = Format(sum, "#,###.00")
                    Else
                        Label31.Text = Format(sum, "#,###.00")
                        lblavg.Text = Format(avg2, "#,###.00")
                        Label30.Text = " "
                    End If
                End If
            
            End If
        Catch ex As Exception

            'MessageBox.Show("กรุณากรอกจำนวนที่ต้องการแก้ไขให้ถูกต้องให้ถูกต้อง ", "เตือน", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
    End Sub

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" 
                    DataSourceID="SqlDataSource1" Width="1086px" 
        DataKeyNames="id_core" BackColor="White" 
                              BorderColor="#CCCCCC" BorderStyle="None" 
        BorderWidth="1px" CellPadding="3" Height="189px" Font-Size="Medium">
                    <RowStyle ForeColor="#000066" />
                    <Columns>
                      <asp:TemplateField> 
<ItemTemplate>
<%# Databinder.Eval(Container,"DataItemIndex") + 1 %>
</ItemTemplate>
</asp:TemplateField>
                        <asp:TemplateField HeaderText="Core Competency (สมรรถนะความสามารถหลัก)" 
                            SortExpression="core">
                            <EditItemTemplate>
                                <asp:TextBox ID="TextBox1" runat="server" Text='<%# Bind("core") %>'></asp:TextBox>
                            </EditItemTemplate>
                            <ItemTemplate>
                                <asp:Label ID="Label2" runat="server" Text='<%# Bind("core") %>'></asp:Label>
                            </ItemTemplate>
                        </asp:TemplateField>
                        <asp:CommandField SelectText="รายละเอียด" ShowSelectButton="True" />
                        <asp:TemplateField HeaderText="id_core" SortExpression="id_core" 
                            Visible="False">
                        
                            <ItemTemplate>
                                <asp:Label ID="Label11" runat="server" Text='<%# Bind("id_core") %>'></asp:Label>
                            </ItemTemplate>
                        </asp:TemplateField>
                         <asp:TemplateField HeaderText="1" >
                            <ItemTemplate > <asp:RadioButton ID="c1" GroupName="rdCore"  runat="server" 
                                                 value="1"  /> 
                                          </ItemTemplate> 
                          
                        </asp:TemplateField>
                             <asp:TemplateField  HeaderText="1.5"> 
                                         <ItemTemplate > <asp:RadioButton ID="c2" GroupName="rdCore"  runat="server" 
                                                 value="1.5"  /> 
                                          </ItemTemplate> 
                       </asp:TemplateField>
                        <asp:TemplateField HeaderText="2" >
                        <ItemTemplate > <asp:RadioButton ID="c3" GroupName="rdCore"  runat="server" 
                                value = "2" /> 
                                          </ItemTemplate> 
                       </asp:TemplateField>
                        <asp:TemplateField HeaderText="2.5" >
                        <ItemTemplate > <asp:RadioButton ID="c4" GroupName="rdCore"  runat="server" 
                                value = "2.5" /> 
                                          </ItemTemplate> 
                       </asp:TemplateField>
                        <asp:TemplateField HeaderText="3" >
                        <ItemTemplate > <asp:RadioButton ID="c5" GroupName="rdCore"  runat="server" 
                                value = "3" /> 
                                          </ItemTemplate> 
                       </asp:TemplateField>
                        <asp:TemplateField HeaderText="3.5" >
                        <ItemTemplate > <asp:RadioButton ID="c6" GroupName="rdCore"  runat="server" 
                                value = "3.5" /> 
                                          </ItemTemplate> 
                       </asp:TemplateField>
                        <asp:TemplateField HeaderText="4" >
                        <ItemTemplate > <asp:RadioButton ID="c7" GroupName="rdCore"  runat="server" 
                                value = "4" /> 
                                          </ItemTemplate> 
                       </asp:TemplateField>
                        <asp:TemplateField HeaderText="4.5" >
                        <ItemTemplate > <asp:RadioButton ID="c8" GroupName="rdCore"  runat="server" 
                                value = "4.5" /> 
                                          </ItemTemplate> 
                       </asp:TemplateField>
                        <asp:TemplateField HeaderText="5" >
                        <ItemTemplate > <asp:RadioButton ID="c9" GroupName="rdCore"  runat="server" 
                                value = "5" /> 
                                          </ItemTemplate> 
                       </asp:TemplateField>
                        
                        <asp:BoundField DataField="id_core" ReadOnly="True" SortExpression="id_core" 
                            HeaderText="id_core">
                            <ControlStyle BackColor="White" BorderColor="White" Font-Size="1pt" 
                                ForeColor="White" Width="1px" />
                            <FooterStyle BackColor="White" BorderColor="White" ForeColor="White" />
                            <HeaderStyle BackColor="White" BorderColor="White" ForeColor="White" />
                            <ItemStyle BackColor="White" BorderColor="White" ForeColor="White" />
                        </asp:BoundField>
                        
                        <asp:TemplateField>
                            <ItemTemplate>
                                <asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="" Text="Detail"></asp:HyperLink>
                            </ItemTemplate>
                            <ControlStyle BackColor="White" BorderColor="White" ForeColor="White" />
                            <FooterStyle BackColor="White" BorderColor="White" ForeColor="White" />
                            <HeaderStyle BackColor="White" BorderColor="White" ForeColor="White" />
                            <ItemStyle BackColor="White" BorderColor="White" ForeColor="White" />
                        </asp:TemplateField>
                        
  </Columns>
                    <FooterStyle BackColor="White" ForeColor="#000066" />
                    <PagerStyle BackColor="White" ForeColor="#000066" HorizontalAlign="Left" />
                    <SelectedRowStyle BackColor="#669999" Font-Bold="True" ForeColor="White" />
                    <HeaderStyle BackColor="#006699" Font-Bold="True" ForeColor="White" />
                </asp:GridView>