Private Function GVIEW() As String DC.FDPLV(Plvset1) PLVVIEW1.Sort = SOEX PGRID.DataBind() Dim ALLCNT As Integer = PLVVIEW1.Count Dim STCNT As Integer = (PGRID.CurrentPageIndex * 10) + 1 Dim EDCNT As Integer = ((PGRID.CurrentPageIndex + 1) * 10) If ALLCNT < EDCNT Then EDCNT = ALLCNT End If Dim CNTMES As String = ALLCNT & "件中、" & STCNT & "〜" & EDCNT & "件を表示" Return CNTMES End Function