- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 会计科目的末级怎么判断？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178373)
-- 发布时间：2022/7/1 17:23:00
-- 会计科目的末级怎么判断？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:会计科目.table |
老师你在其他问题里面的方案，但是这个递归函数太难了，写不了：
-- 发布时间：2022/7/1 17:39:00
--
是要判断表格里的数据是不是末级？还是判断目录树里的节点是不是末级？
-- 发布时间：2022/7/2 18:00:00
-- 回复：（有点蓝）是要判断表格里的数据是不是末级？还...
-- 发布时间：2022/7/3 20:12:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:会计科目.zip |
-- 发布时间：2022/7/3 22:34:00
-- 回复：（有点蓝）[upload=zip,会计科目.zip]viewFile....
-- 发布时间：2022/7/6 13:58:00
--
这么好的产品值得升级
项目事件
计划管理
表事件
会计科目_DataColChanged
If e.DataCol.Name = "科目代码" Then
If e.DataRow.IsNull("科目代码") Then
e.DataRow("是否末级科目") = Nothing
Else
If e.DataTable.Find("科目代码 like \'" & e.DataRow("科目代码") & "%\' and 科目代码 <> \'" & e.DataRow("科目代码") & "\'") Is Nothing Then
e.DataRow("是否末级科目") = "末级"
Else
e.DataRow("是否末级科目") = "非末级"
End If
End If
End If
窗口表事件
窗口与控件事件
窗口1_AfterLoad
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("会计科目")
tr.StopRedraw()
tr.Nodes.Clear
tr.Nodes.Add("全部")
For Each dr As DataRow In dt.Select("","科目代码")
If dr.IsNull("科目代码") = False AndAlso dr("科目代码").Length = 4 Then
nd = tr.Nodes.Add(dr("科目代码"),dr("科目代码") & " " & dr("科目名称"))
Functions.Execute("AddChildren",nd,dt)
End If
Next
tr.ResumeRedraw()
窗口1_TreeView1_NodeMouseDoubleClick
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If e.Node.Name = "全部" Then
Tables("会计科目").Filter = ""
Else
Tables("会计科目").Filter = "科目代码 Like \'" & e.Node.Name & "%\'"
End If
窗口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
tr.Nodes.Add(rt)
Next
For Each dr As DataRow In dt.Select("", "科目代码")
If dr.IsNull("科目代码") = False AndAlso dr("科目代码").Length = 4 Then
Dim i As Integer = CInt(dr("科目代码").Substring(0,1))
nd = tr.Nodes(i).Nodes.Add(dr("科目代码"),dr("科目代码") & " " & dr("科目名称"))
Functions.Execute("AddChildren",nd,dt)
End If
Next
tr.ResumeRedraw()
窗口2_TreeView1_NodeMouseDoubleClick
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If e.Node.Level = 0
If e.Node.Name = "全部" Then
Tables("会计科目").Filter = ""
Else
Tables("会计科目").Filter = "科目代码 Like \'" & e.Node.Index & "%\'"
End If
Else
Tables("会计科目").Filter = "科目代码 Like \'" & e.Node.Name & "%\'"
End If
窗口3_Button1_Click
Forms("窗口2").Close()
Forms("窗口1").Open()
窗口3_Button2_Click
Forms("窗口1").Close()
Forms("窗口2").Open()
自定义函数
AddChildren
Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
For Each dr As DataRow In dt.Select("","科目代码") \'按科目代码顺序添加
Dim km As String = dr("科目代码")
If km.StartsWith(nd.name) AndAlso km.Length = nd.Name.Length + 2 Then
Dim cd As Winform.TreeNode = nd.Nodes.Add(km,km & " " & dr("科目名称"))
Functions.Execute("AddChildren",cd,dt)
End If
Next
全局代码
菜单事件