'获得datagridview的竖向滚动条,并添加滚动后绑定查询的功能 Dim vScrollbar = GetType(DataGridView).GetProperty("VerticalScrollBar", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic) Dim scVertical As ScrollBar = Nothing If vScrollbar IsNot Nothing Then scVertical = vScrollbar.GetValue(dgvData, Nothing) End If If scVertical IsNot Nothing Then AddHandler scVertical.Scroll, AddressOf EndScroll End If Private Sub EndScroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) If strAutoPage = "Y" Then Dim dSaveQty As Decimal = 0 If e.Type = ScrollEventType.EndScroll Then If dgvData.Rows(dgvData.RowCount - 1).Displayed And Not dgvData.Rows(dgvData.Rows.Count - 1).Cells("users").Value.ToString.StartsWith("实际库存量") Then dSaveQty = dgvData.Rows(dgvData.Rows.Count - 1).Cells("saveQty").Value DatagridviewShow(dSaveQty) End If End If End If End Sub滚动条滚动时执行查询操作
Dim vScrollbar = GetType(DataGridView).GetProperty("VerticalScrollBar", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)
Dim scVertical As ScrollBar = Nothing
If vScrollbar IsNot Nothing Then
scVertical = vScrollbar.GetValue(dgvData, Nothing)
End If
If scVertical IsNot Nothing Then
AddHandler scVertical.Scroll, AddressOf EndScroll
End If Private Sub EndScroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)
If strAutoPage = "Y" Then
Dim dSaveQty As Decimal = 0
If e.Type = ScrollEventType.EndScroll Then
If dgvData.Rows(dgvData.RowCount - 1).Displayed And Not dgvData.Rows(dgvData.Rows.Count - 1).Cells("users").Value.ToString.StartsWith("实际库存量") Then
dSaveQty = dgvData.Rows(dgvData.Rows.Count - 1).Cells("saveQty").Value
DatagridviewShow(dSaveQty)
End If
End If
End If End Sub滚动条滚动时执行查询操作