Dim i As Integer
        Dim c As Integer = DataGrid1.Items.Count
        Dim chkSelected As CheckBox
        Dim list As String() = New String(c) {}
        Dim b As Integer = 0
        For i = 0 To (c - 1)
            '从列表依次选取 每行
            chkSelected = Nothing
            chkSelected = DataGrid1.Items(i).FindControl("che")
            If (Not (chkSelected Is Nothing)) Then
                '找到每行的复选框
                If (chkSelected.Checked = True) Then
                    '如果复选框被选中,更新此行的内容
                End If
            End If
        Next