Foxtable(狐表)用户栏目专家坐堂 → SQLQUERY里面分页的问题


  共有2186人关注过本帖树形打印复制链接

主题:SQLQUERY里面分页的问题

帅哥哟,离线,有人找我吗?
aoc103
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:3029 威望:0 精华:0 注册:2017/10/15 20:04:00
SQLQUERY里面分页的问题  发帖心情 Post By:2018/8/23 20:14:00 [显示全部帖子]

.NET Framework 版本:2.0.50727.8669
Foxtable 版本:2018.8.19.1
错误所在事件:窗口,主记录窗口,AfterLoad
详细错误信息:
未将对象引用设置到对象的实例。

AFTERLOAD事件



DataTables("主记录窗口_Table1").LoadFilter = ""  '一定要清除加载条件
DataTables("主记录窗口_Table1").LoadTop = 40  '每页加载00行
'-----------------------------------------------
[此贴子已经被作者于2018/8/23 20:15:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
aoc103
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:3029 威望:0 精华:0 注册:2017/10/15 20:04:00
  发帖心情 Post By:2018/8/23 20:25:00 [显示全部帖子]

不是的 其它代码复制不进去

 回到顶部
帅哥哟,离线,有人找我吗?
aoc103
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:3029 威望:0 精华:0 注册:2017/10/15 20:04:00
  发帖心情 Post By:2018/8/23 20:26:00 [显示全部帖子]

'Dim dt As DataTable
'Dim cmd As New SQLCommand
'cmd.C
'cmd.CommandText = sql代码
'Dim dst1 As Table = Tables("主记录窗口_Table1")
'dst1.DataSource  = cmd.ExecuteReader()


[此贴子已经被作者于2018/8/23 20:26:58编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
aoc103
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:3029 威望:0 精华:0 注册:2017/10/15 20:04:00
  发帖心情 Post By:2018/8/23 20:28:00 [显示全部帖子]

'Dim dt As DataTable
'Dim cmd As New SQLCommand
'cmd.Connection Name = "sql data"
'cmd.CommandText = "select * fro m [tbl_品牌表] where [_Identify] is null"
'Dim dst1 As Table = Tables("主记录窗口_Table1")
'dst1.DataSource  = cmd.ExecuteReader()

 回到顶部
帅哥哟,离线,有人找我吗?
aoc103
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:3029 威望:0 精华:0 注册:2017/10/15 20:04:00
  发帖心情 Post By:2018/8/23 20:28:00 [显示全部帖子]

'Dim dt As DataTable
'Dim cmd As New SQLCommand
'cmd.Connection Name = "sql data"
'cmd.CommandText = "select * fro m [tbl_品牌表] where [_Identify] is null"
'Dim dst1 As Table = Tables("主记录窗口_Table1")
'dst1.DataSource  = cmd.ExecuteReader()

DataTables("主记录窗口_Table1").LoadFilter = ""  '一定要清除加载条件
DataTables("主记录窗口_Table1").LoadTop = 40  '每页加载00行
'-----------------------------------------------

'以下设置态动分页列表
Dim comvalue As String 'Combolist的变量值
Dim ttpages As String '分页最大值
ttpages =  DataTables("主记录窗口_Table1").TotalPages
For i As Integer =1 To ttpages
    If i <> ttpages Then
       comvalue =comvalue & i & "|"
    Else
        comvalue =comvalue & i
    End If
Next
Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox2")
cmb.ComboList = comvalue
'------------------------------------------------------
'以下是模拟点击第一页按钮
Dim btn As WinForm.Button =  e.Form.Controls("Button5")
btn.PerformClick()
'-------------------------------------------------------
'以下动态显示本表行数
Dim count = DataTables("主记录窗口_Table1").sqlCompute("count([_identify])") '统计行数
e.Form.Controls("Label6").text = "共" & count & "条数据"

 回到顶部
帅哥哟,离线,有人找我吗?
aoc103
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:3029 威望:0 精华:0 注册:2017/10/15 20:04:00
  发帖心情 Post By:2018/8/23 20:54:00 [显示全部帖子]

以下是BUTTON 5 的按钮
With DataTables("主记录窗口_Table1")
    If .LoadPage <> 0 Then
        .LoadPage = 0
        .Load
    End If
e.Form.Controls("combobox2").value=.loadpage+1
End With

TABLE 右边的属性 名称 TABLE1 类型 SQLQUERY 数据源为空 SELECT 语句也会空 如果在这里设置数据源与SELECT语句 分页则成功 如果在AFTERLOAD里设置数据源与载入数据 则分页失败

 回到顶部
帅哥哟,离线,有人找我吗?
aoc103
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:3029 威望:0 精华:0 注册:2017/10/15 20:04:00
  发帖心情 Post By:2018/8/23 21:22:00 [显示全部帖子]

是这样的,这个窗口里面的表格 以后将会根据打开条件动态显示不同表格里的数据,所以才需要设置SQLCOMMAND

 回到顶部
帅哥哟,离线,有人找我吗?
aoc103
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:3029 威望:0 精华:0 注册:2017/10/15 20:04:00
  发帖心情 Post By:2018/8/23 22:46:00 [显示全部帖子]

还是不行!!!依然是错误的

 回到顶部
帅哥哟,离线,有人找我吗?
aoc103
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:3029 威望:0 精华:0 注册:2017/10/15 20:04:00
  发帖心情 Post By:2018/8/23 22:46:00 [显示全部帖子]

需要上传文件看看吗?

 回到顶部
帅哥哟,离线,有人找我吗?
aoc103
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:3029 威望:0 精华:0 注册:2017/10/15 20:04:00
  发帖心情 Post By:2018/8/23 23:14:00 [显示全部帖子]

本来是SQL的模式 我把他改为内部数据源了 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:鸿星陶瓷.table


 回到顶部
总数 14 1 2 下一页