Foxtable(狐表)用户栏目专家坐堂 → 外部SQL数据源---用SQL语句设计加载树---怎样设置分页加载?


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

主题:外部SQL数据源---用SQL语句设计加载树---怎样设置分页加载?

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


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
外部SQL数据源---用SQL语句设计加载树---怎样设置分页加载?  发帖心情 Post By:2012/11/9 20:14:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20121109200552-1.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2012-11-9 23:07:48编辑过]

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


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
  发帖心情 Post By:2012/11/9 20:39:00 [只看该作者]

Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "Select DISTINCT Year(订单日期) As 年, Month(订单日期) As 月,客户id  From {销售订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"年|月|客户id")
trv.Nodes.Insert("加载所有数据",0)


下面分页方法要在窗口表中怎样用啊


With DataTables("销售订单_Table1")
    .
LoadTop = 50
    .
LoadPage = 2
    .
Load
End With

[此贴子已经被作者于2012-11-9 23:12:32编辑过]

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


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
  发帖心情 Post By:2012/11/10 12:25:00 [只看该作者]

图例补充:

图片点击可在新窗口打开查看此主题相关图片如下:sql分页加载.jpg
图片点击可在新窗口打开查看



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


加好友 发短信
等级:幼狐 帖子:178 积分:1265 威望:0 精华:0 注册:2012/4/3 15:29:00
  发帖心情 Post By:2012/11/10 13:09:00 [只看该作者]

SELECT ID,DJBH,DJRQ,HTBH,GDTH,GDDX,GDSL,GDZL,GDYL,GDFCLH,CPBH,CPMC,SL,DZ,ZL,BZ,ZDR,NBBH,LH,GDMC,JZJS,JHRQ,JHZT FROM WIP_LLQK

 

UPDATE WIP_SCJH SET TH='' FROM WIP_SCJH WHERE TH IS NULL
UPDATE WIP_LLQK SET CPBH='' FROM WIP_LLQK WHERE CPBH IS NULL

update wip_scjh set jhzt=wip_htddmx.jhzt2 from wip_scjh,wip_htdd,wip_htddmx where wip_htdd.id=wip_htddmx.mid and wip_htdd.nbbh=wip_scjh.nbbh and wip_htddmx.djmc=wip_scjh.cpmc and wip_htddmx.lpmc=wip_scjh.lpmc and wip_htddmx.lpgg=wip_scjh.lpgg and wip_htddmx.th=wip_scjh.th and wip_htddmx.jhrq=wip_scjh.jhrq and wip_scjh.jhzt is null

请问上面这些程序是用什么语言编写的程序?


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


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
  发帖心情 Post By:2012/11/10 13:11:00 [只看该作者]

sql

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/11/10 13:18:00 [只看该作者]

 直接用不行么?上例子。

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


加好友 发短信
等级:幼狐 帖子:178 积分:1265 威望:0 精华:0 注册:2012/4/3 15:29:00
  发帖心情 Post By:2012/11/10 13:21:00 [只看该作者]

以下是引用hanxuntx在2012-11-10 13:11:00的发言:
sql

请问是数据库表格的字段名称吗?如果要设置字段内容居中、居右、居左应该怎么做,有十多个表格的一些字段内容要居中,麻烦吗?谢谢!

[此贴子已经被作者于2012-11-10 13:23:10编辑过]

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


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
  发帖心情 Post By:2012/11/10 15:19:00 [只看该作者]

例子中,要为目录树加双击事件,加时总报错,暂先传上来
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:单据窗口2.rar

[此贴子已经被作者于2012-11-10 15:20:06编辑过]

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/11/10 15:51:00 [只看该作者]

 代码如下

Dim Value()As String
Dim s1 As String
If e.Sender.SelectedNode.Text = "加载所有数据" Then
    s1=""
Else
    Value =  e.Sender.SelectedNode.FullPath.Split("\")
    Select Case  e.Sender.SelectedNode.Level
        Case 0
            s1 ="Year(订单日期) = " & Value(0)
        Case 1
            s1 ="Year(订单日期) = " & Value(0) & " And Month(订单日期) = " & Value(1)
        Case 2
            s1 ="Year(订单日期) = " & Value(0) & " And Month(订单日期) = " & Value(1) & " And 客户 = '" & Value(2) & "'"
        Case Else
            s1=""
    End Select
End If
DataTables("销售订单_Table1").LoadFilter = s1
DataTables("销售订单_Table1").Load()

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


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
  发帖心情 Post By:2012/11/10 16:10:00 [只看该作者]

谢谢! 这样可以
怎样在这个位置出现分页呢
图片点击可在新窗口打开查看此主题相关图片如下:1111118.jpg
图片点击可在新窗口打开查看


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