主题：表中不存在rownum列

Select * 改成 Select 各列的列名 ，不要包含RowNum列

Dim page As Long = 1
Dim r1 As Integer = (Page - 1) * 5 + 1
Dim r2 As Integer = Page * 5
Dim sql As String
Dim str As String = ""
For Each dc As object In DataTables("test").basetable.Columns
    If dc.expression = "" AndAlso dc.Tostring.Startswith("System_") = False Then
        str &= dc.Tostring & ","

    End If
Next
sql = "Select " & str.trim(",") & " From (Select Row_Number() Over(Order by 第一列) As RowNum, * from test) As a "
sql = sql & " Where RowNum >= " & r1 & " And RowNum <= " & r2
DataTables("test").SQLLoad(sql)
'Tables("窗口1_Table1").DataSource = DataTables("表A").