Crystal Report - Visual Basic -Developer

    Public Shared Function ToDateEOM(ByVal dt As Object) As DateTime
        '//-- หาวันที่สิ้นเดือน EndOfMonth โดยใช้รูปแบบตาม culture ดังนี้
        '//-- ถ้า CultureName en-US ต้องเป็น MM/dd/yyyy (ปีใช้คศ)
        '//-- ถ้า CultureName en-GB ต้องเป็น dd/MM/yyyy (ปีใช้คศ)
        '//-- ถ้า CultureName th-TH ต้องเป็น dd/MM/yyyy (ปีใช้พศ)
        Dim tmpDate As DateTime
        Try
            tmpDate = System.DateTime.Parse(dt.ToString())
            Return DateSerial(Year(tmpDate), Month(tmpDate) + 1, 1).AddDays(-1)
        Catch
            Return DateTime.MinValue
        End Try
    End Function

select (
SELECT COUNT(ID) + 1 AS Counter
FROM users usr
WHERE usr.ID < users.ID
) AS Counter,
name
from users

หมายเหตุ มีฟิลด์ ID เป็น number, 
                           Name เป็น ชื่อ
ผลที่ได้จะเป็น

counter           name
----------           -------------
1                       aaa
2                       bbb
3                       ccc