- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 返回一级码是唯一值的所有行的条件表达式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144470)
-- 发布时间：2019/12/21 9:41:00
-- 返回一级码是唯一值的所有行的条件表达式
返回一级码是唯一值的所有行的条件表达式
For Each dr As DataRow In dt.Select("", "一级码")
-- 发布时间：2019/12/21 9:59:00
--
For Each dr As DataRow In dt.sqlSelect("一级码 in (select 一级码 from {某表} group by 一级码 having count(一级码) = 1)", "一级码")
-- 发布时间：2019/12/21 10:19:00
-- 回复：（有点蓝）For Each dr As DataRow In dt.sqlSe...
老师我在命令窗口测试了下您的代码,不知道我转换的是否正确,测试没有结果,1没有跳出来
For Each dr As DataRow In DataTables("科目汇总").sqlS elect("一级码 in (s elect 一级码 from {科目汇总} group by 一级码 having count(一级码) = 1)", "一级码")
MessageBox.Show(1)
Next
-- 发布时间：2019/12/21 10:21:00
--
我提出这个问题其实是想解决一级科目目录树重复显示的问题,
此主题相关图片如下：重复的科目.png
我做了如下设置,
此主题相关图片如下：函数.png
此主题相关图片如下：加载窗口代码.png
-- 发布时间：2019/12/21 10:51:00
--
使用GetValues，http://www.foxtable.com/webhelp/topics/2747.htm，看示例六用法
-- 发布时间：2019/12/21 14:26:00
-- 回复：（有点蓝）使用GetValues，http://www.foxtable...
老师,这个我目前理解起来有点困难,弄了个一个上午,您帮我做下,我学习下哈
-- 发布时间：2019/12/21 14:46:00
--
只有2级，没有必要递归，何况也不是这样递归的。
总账科目下拉，afterload事件
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim rts() As String = {"全部","资产","负债","权益","成本","损益"}
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("科目汇总")
tr.StopRedraw()
tr.Nodes.Clear
For Each rt As String In rts
nd = tr.Nodes.Add(rt)
For Each str As String() In dt.GetValues("一级码|一级科目","一级码 like \'" & nd.Index & "%\'")
nd.Nodes.Add(str(0),str(0) & " " & str(1) )
Next
Next
tr.ResumeRedraw()