主题：数据提取问题

去掉全部代码，只保留39楼的代码

老师，请问在这个项目“凭证”窗口中，在选取“一级科目”或“明细科目”下拉菜单后，“凭证明细”表中“科目代码”列自动生成。请教老师代码怎么修改？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:凭证202306.foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:230306.zip

蓝老师，我想自动提取任意长度字符最后一个字符，请教代码怎么写？比如第一列“在人间”，第二列为“间”；第一列“数据管理”，第二列为“理”

很多字符串的函数都可以实现这种功能：http://www.foxtable.com/webhelp/topics/1338.htm

谢谢老师

自定义函数

AddChildren

 

Dim nd As WinForm.TreeNode = args(0)

Dim dt As DataTable = args(1)

Dim gz As String = args(2)

For Each dr As DataRow In dt.Select("","编码规则") '按代码顺序添加

    Dim km As String = dr("编码规则")

    If km.StartsWith(nd.name) AndAlso km.Length = nd.Name.Length + val(gz(dr("编码级次")-1)) Then

         Dim cd As Winform.TreeNode = nd.Nodes.Add(km,km & " " & dr("编码名称"))

        Functions.Execute("AddChildren",cd,dt,gz)

    End If

Next

 

窗口弹出运行错误

调用的目标发生了异常。

.NET Framework 版本：4.0.30319.18063

Foxtable 版本：2022.8.18.1

错误所在事件：自定义函数,AddChildren

详细错误信息：

调用的目标发生了异常。

从字符串“”到类型“Double”的转换无效。

输入字符串的格式不正确。

蓝老师，这是什么问题，是哪里出错了

应该是这句问题：val(gz(dr("编码级次")-1))

If e.node.nodes.count = 0 Then ''最底层的节点

没看懂，截图说明一下