标题：想分科目类别单独选择

1楼

zhuxinhui 发表于：2025/1/21 18:23:00

DataTables("会计科目").loadtop = Nothing

DataTables("会计科目").loadfilter = "科目类型='损益'"

DataTables("会计科目").load()

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

Dim gz As String = "444"

For Each rt As String In rts
图片点击可在新窗口打开查看

此主题相关图片如下：微信截图_20250121182246.png

tr.Nodes.Add(rt)

For Each dr As DataRow In dt.Select("", "科目编码")

If dr.IsNull("科目编码") = False AndAlso dr("科目编码").Length = val(gz(0)) Then

Dim i As Integer = CInt(dr("科目编码").Substring(0, 1))

nd = tr.Nodes(i).Nodes.Add(dr("科目编码"), dr("科目编码") & " " & dr("科目名称"))

Functions.Execute("km", nd, dt, gz, 1)

End If

tr.ResumeRedraw()

2楼

有点蓝 发表于：2025/1/21 20:04:00

没看懂什么意思

共2 条记录, 每页显示 10 条, 页签: [1]