以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 外部SQL数据源---用SQL语句设计加载树---怎样设置分页加载? (http://foxtable.com/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") [此贴子已经被作者于2012-11-9 23:12:32编辑过]
|
||||
-- 作者:jinruan -- 发布时间:2012/11/10 12:25:00 -- 图例补充: |
||||
-- 作者: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_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 -- 例子中,要为目录树加双击事件,加时总报错,暂先传上来
[此贴子已经被作者于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 -- 谢谢! 这样可以 |