以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请老师帮忙检查下代码是否有问题！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50904)
--  作者：身份不明
--  发布时间：2014/5/15 10:47:00
--  请老师帮忙检查下代码是否有问题！

窗口AfterLoad事件：按年月日，“完成质检”是逻辑列！！

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT Year(日期) As 年, Month(日期) As 月, Day(日期) As 日, 完成质检 From {质检管理}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"年|月|日|完成质检")
trv.Nodes.Insert("加载所有数据",0)

\'加载第一页数据
With DataTables("质检管理")
    .LoadFilter = "" \'清除加载条件
    .LoadPage = 0 \'加载第一页
    .LoadTop = 200 \'每页200行
    .Load()
    e.Form.Controls("TextBox2").Value = 1 & "/" & .TotalPages
End With
--  作者：Bin
--  发布时间：2014/5/15 10:53:00
--  
没有很懂你的需求,明确一下,并且上个例子看看
[此贴子已经被作者于2014-5-15 11:01:40编辑过]
--  作者：身份不明
--  发布时间：2014/5/15 10:58:00
--  
Bin老师，如果我想改成按“完成质检”，“年”“月”“日”这样的顺序设计夹在书，该如何写代码呢！
--  作者：有点甜
--  发布时间：2014/5/15 11:29:00
--  
以下是引用身份不明在2014-5-15 10:58:00的发言：
Bin老师，如果我想改成按“完成质检”，“年”“月”“日”这样的顺序设计夹在书，该如何写代码呢！

 

改这一句

 

cmd.CommandText = "SELECT DISTINCT 完成质检, Year(日期) As 年, Month(日期) As 月, Day(日期) As 日 From {质检管理}"