以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  外部SQL数据源---用SQL语句设计加载树---怎样设置分页加载?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25462)

--  作者:jinruan
--  发布时间:2012/11/9 20:14:00
--  外部SQL数据源---用SQL语句设计加载树---怎样设置分页加载?

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


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

--  作者:jinruan
--  发布时间: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
--  发布时间:2012/11/10 12:25:00
--  
图例补充:

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



--  作者:wjyuan
--  发布时间: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
--  发布时间:2012/11/10 13:11:00
--  
sql
--  作者:lin_hailun
--  发布时间:2012/11/10 13:18:00
--  
 直接用不行么?上例子。
--  作者:wjyuan
--  发布时间:2012/11/10 13:21:00
--  
以下是引用hanxuntx在2012-11-10 13:11:00的发言:
sql

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

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

--  作者:jinruan
--  发布时间:2012/11/10 15:19:00
--  
例子中,要为目录树加双击事件,加时总报错,暂先传上来
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:单据窗口2.rar

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

--  作者:lin_hailun
--  发布时间: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
--  发布时间:2012/11/10 16:10:00
--  
谢谢! 这样可以
怎样在这个位置出现分页呢
图片点击可在新窗口打开查看此主题相关图片如下:1111118.jpg
图片点击可在新窗口打开查看