| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- SQLQUERY里面分页的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123821) |
| -- 作者：aoc103 -- 发布时间：2018/8/23 20:14:00 -- SQLQUERY里面分页的问题 .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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2018/8/23 20:24:00 -- 这2句代码应该不会出错，是AfterLoad全部代码了吗？ |
| -- 作者：aoc103 -- 发布时间：2018/8/23 20:25:00 -- 不是的 其它代码复制不进去 |
| -- 作者：aoc103 -- 发布时间：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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2018/8/23 20:27:00 -- http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=69632 |
| -- 作者：aoc103 -- 发布时间：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 -- 发布时间：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 & "条数据"
|
| -- 作者：有点蓝 -- 发布时间：2018/8/23 20:40:00 -- Button5按钮代码发上来看看 窗口表右边属性是怎么设置的？ |
| -- 作者：aoc103 -- 发布时间：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里设置数据源与载入数据 则分页失败
|
| -- 作者：有点蓝 -- 发布时间：2018/8/23 21:19:00 -- 这种直接在窗口设计属性里设置sql就可以了，没有必要使用SQLCommand |