以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- MYSQL-如何转 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189291) |
||
-- 作者:lin98 -- 发布时间:2023/11/22 12:46:00 -- MYSQL-如何转 、将窗口的AfterLoad事件设为:
上面的代码中,请留意第8行代码: dt = b.Build(True) \'参数设置为True,生成一个临时表,不在主界面显示 加上参数True后,Build生成的表,不会在主界面显示,当不再有地方引用这个表或这个表中的行和列时,这个表就会被自动销毁,参考不显示生成的表。 6、将目录树的NodeMouseDoubleClick事件设为: Dim Filter As String = "" |
||
-- 作者:有点蓝 -- 发布时间:2023/11/22 13:49:00 -- 1~8行改为使用第三方组件加载表格后绑定到窗口表 第11行【trv.BuildTree(dt, "年|月|产品")】改为使用窗口表【trv.BuildTree(datatables("窗口1_table1"), "年|月|产品")】 其它基本不变
|
||
-- 作者:lin98 -- 发布时间:2023/11/22 14:17:00 -- t2.AllowEdit = False \'sqlta Dim dt As DataTable Dim trv3 As WinForm.TreeView = e.Form.Controls("TreeView4") trv.BuildTree(DataTables("窗口_Table1"), "年|月|产品") trv3.StopRedraw For Each nd As WinForm.TreeNode In trv.AllNodes Dim Year As Integer = nd.DataRow("年") Dim Month As Integer = nd.DataRow("月") Dim Product As String = nd.DataRow("品名") Select Case nd.Level Case 0 nd.Text = nd.text & "年(" & dt.Compute("Sum(订单数)", "年 = " & Year) & "条)" Case 1 nd.Text = nd.text & "月(" & dt.Compute("Sum(订单数)", "年 = " & Year & " And 月 = " & Month) & "条)" Case 2 nd.Text = nd.text & "(" & nd.DataRow("订单数") & ")" End Select Next trv3.Nodes.Insert("加载所有行", "加载所有行(" & dt.Compute("Sum(订单数)") & "条)", 0) trv3.ResumeRedraw 执行报错,年无效,如何解决? [此贴子已经被作者于2023/11/23 18:00:18编辑过]
|
||
-- 作者:有点蓝 -- 发布时间:2023/11/22 14:19:00 -- sql里都没有年月日这种列,当然就不能用的 |
||
-- 作者:lin98 -- 发布时间:2023/11/22 14:26:00 -- t2.Groups.AddDef("采购日期",DateGroupEnum.Year,"年") t2.Groups.AddDef("采购日期",DateGroupEnum.Month,"月") t2.Groups.AddDef("采购产品") 补上, 报错:Groups不是Table
正确代码如何写?
|
||
-- 作者:有点蓝 -- 发布时间:2023/11/22 14:27:00 -- 去百度,mysql怎么在sql里返回日期列的年月日 |
||
-- 作者:lin98 -- 发布时间:2023/11/22 22:46:00 -- |
||
-- 作者:有点蓝 -- 发布时间:2023/11/23 8:43:00 -- YEAR(日期列) |
||
-- 作者:lin98 -- 发布时间:2023/11/23 16:44:00 -- Dim dt As DataTable Dim Sql-3 = "SELE-CT DISTINCT Year(日期) As 年, Month(日期) As 月, 品名 From 窗口_Table1 " Dim trv3 As WinForm.TreeView = e.Form.Controls("TreeView4") trv.BuildTree(DataTables("窗口_Table1"), "年|月|产品") trv3.StopRedraw For Each nd As WinForm.TreeNode In trv.AllNodes Dim Year As Integer = nd.DataRow("年") Dim Month As Integer = nd.DataRow("月") Dim Product As String = nd.DataRow("品名") Select Case nd.Level Case 0 nd.Text = nd.text & "年(" & dt.Sq-l3("Sum(订单数)", "年 = " & Year) & "条)" Case 1 nd.Text = nd.text & "月(" & dt.Sq-l3("Sum(订单数)", "年 = " & Year & " And 月 = " & Month) & "条)" Case 2 nd.Text = nd.text & "(" & nd.DataRow("订单数") & ")" End Select Next trv3.Nodes.Insert("加载所有行", "加载所有行(" & dt.Compute("Sum(订单数)") & "条)", 0) trv3.ResumeRedraw 报错:nd.Text = nd.text & "年(" & dt.Sq-l3("Sum(订单数)", "年 = " & Year) & "条)"不是DataTable |
||
-- 作者:有点蓝 -- 发布时间:2023/11/23 16:53:00 -- 不要把第三方的组件用法和Foxtable的用法混用。也不要自己随便创造用法。Foxtable不存在这种用法: dt.Sq-l3("Sum(订单数)", "年 = " & Year) & "条)" Dim Sq-l2 = "DISTINCT Year(日期) As 年, Month(日期) As 月, 品名 from mysql里的某表" Dim dt2 As system.data.DataTable = db.ExecuteDataSet(Sq-l2).Tables(0) |