表中不存在rownum列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表中不存在rownum列

共有1928人关注过本帖树形打印复制链接主题：表中不存在rownum列

newsun2k

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1501 积分：11201 威望：0 精华：0 注册：2014/8/13 16:19:00

表中不存在rownum列 发帖心情

Post By：2017/5/17 11:34:00 [只看该作者]

Dim page As Long = 1

Dim r1 As Integer = (Page - 1) * 50 + 1

Dim r2 As Integer = Page * 50

Dim sql As String

sql = "S elect * From (Se lect Row_Number() Over(Order by 第一列) As RowNum, * from 表A) As a "

sql = sql & " Where RowNum >= " & r1 & " And RowNum <= " & r2

DataTables("表A").SQLLoad(sql)

Tables("窗口1_Table1").DataSource = DataTables("表A") 这句话一直报数据表xx中不存在rownum列。

何解？？？？

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/17 11:36:00 [只看该作者]

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

newsun2k

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1501 积分：11201 威望：0 精华：0 注册：2014/8/13 16:19:00

Post By：2017/5/17 11:54:00 [只看该作者]

我这是一个通用的。加载每张表都用到。

所以没办法一个一个写列名。

还有其他的好方法吗

拜托了

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/17 12:06:00 [只看该作者]

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").

下一主题 >> << 上一主题

主题：表中不存在rownum列