DataGridView 常用（记录）

  

查找的资料收藏于此。

获取总行数：dataGridView1.Rows.Count;

获取当前选中行索引：int i = this.dataGridView1.CurrentRow.Index;

获取当前选中列索引：int j = this.dataGridView1.CurrentCell.ColumnIndex;

MessageBox.Show("一共有"+ dataGridView1.SelectedRows.Count.ToString()+"被选中");

if (dataGridView1.Rows[0].Selected )
  MessageBox.Show("第一行被选中了");

 

取消默认选中行。

DataGridView.ClearSelection()

选中某个单元格的值。

DataGridView.Rows(0).Cells(0)

http://blog.csdn.net/wuoomail/article/details/6628397

 

在机房收费系统中所有学生全部下机。

 

  ''' <summary>
    ''' 所有学生全部下机。
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ToolStripMenuItem_AllAwayLine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem_AllAwayLine.Click
        Try
            Dim R_intStuCardID As Integer '定义卡号的循环变量。
            Dim dataSetCount As Integer ' 定义DataGridView中的总行数。

            '获得DataGridView中的总行数。
            dataSetCount = (dgvOnline.Rows.Count.ToString())

            '如果没有正在上机的记录。
            If dataSetCount = 0 Then
                MsgBox("小提示：没有上机的记录！")
                Exit Sub
            End If
            '根据DataGridView 中的行数循环来执行全部下机。
           For dataSetCount = 0 To dataSetCount - 1
            R_intStuCardID = dgvOnline.Rows(dataSetCount).Cells(dataSetCount).Value.ToString()

            Dim bllOnlineDel As New BLL.BLL_OnlineInquire
            If bllOnlineDel.BLL_ForceSelStuOnline(R_intStuCardID, UI_FormLogin.strMacIP, UI_FormLogin.txtUserName.Text) = False Then
                    MsgBox("所有学生下机失败！")
                End If
         Next
            '在删除所有正在上机的学生记录后，重新把表绑定到DataGridView中。
            Dim bllStuOnline As New BLL.BLL_OnlineInquire
                Dim myDataSet As New DataSet
                myDataSet = bllStuOnline.StuOnlineInquire()
                '绑定到datagrideview控件上。
                dgvOnline.DataSource = myDataSet.Tables(0)

                MsgBox("所有学生下机成功！")


        Catch ex As Exception
            MsgBox("所有学生下机失败！")
        End Try

    End Sub

 

选中DataGridView中某一行获取该行第一列的值。

 ''' <summary>
    ''' 单击DataGridView某一行，获取该行第一列的值。
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub dgvOnline_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgvOnline.MouseClick
        Try
            If dgvOnline.Rows.Count = 0 Then
                dgvOnline.Enabled = False
                Exit Sub
            End If
            Dim result As String = dgvOnline.Item(0, dgvOnline.CurrentCell.RowIndex).Value.ToString.Trim
            intStuCardID = result

        Catch ex As Exception
            Throw New Exception("选中一行出错误！")
        End Try