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