16,554
社区成员
发帖
与我相关
我的任务
分享
''' <summary>
''' 「前・次ページ」ボタンを活性化
''' </summary>
''' <param name="btnNext">次ページ</param>
''' <param name="btnPre">前ページ</param>
''' <param name="dgvSource">DataGridView</param>
''' <param name="intOnePage">DataGridView一ページのレコード数</param>
''' <remarks></remarks>
Public Shared Sub SetBtnEnable(ByRef btnNext As Button, ByRef btnPre As Button _
, ByRef dgvSource As DataGridView, ByVal intOnePage As Integer)
If dgvSource Is Nothing OrElse dgvSource.RowCount <= 0 Then
'前・次ページボタンを非活性化
btnPre.Enabled = False
btnNext.Enabled = False
Return
End If
'前ページボタンを活性化
If dgvSource.FirstDisplayedCell.RowIndex > 0 Then
btnPre.Enabled = True
Else
btnPre.Enabled = False
End If
'次ページボタンを活性化
If dgvSource.FirstDisplayedCell.RowIndex + intOnePage < dgvSource.RowCount Then
btnNext.Enabled = True
Else
btnNext.Enabled = False
End If
End Sub
'从楼上copy的
Dim tb As New DataTable
tb.Columns.Add("ID")
tb.Columns.Add("Name")
Dim row As DataRow
For i As Integer = 1 To 10
row = tb.NewRow
row("ID") = i
row("Name") = "Name" & i.ToString
tb.Rows.Add(row)
Next
'查询如果符合检索条件的纪录存在,就赋给dr
Dim dr As DataRow
If tb.Select("ID=9").Length > 0 Then
dr = tb.Select("ID=9")(0)
End If