Dim jh As new List (of String) '此集合用于计算科目代码的末级科目位数
Dim ro111 As DataRow '此集合用于计算科目代码的末级科目位数
Dim zf11 As String '此集合用于计算科目代码的末级科目位数
Dim sz11 As Integer
For Each ro111 In DataTables("科目余额表1").Select("科目代码 like '1122*'") '此集合用于计算科目代码的末级科目位数
zf11 = ro111("科目代码")
sz11 = zf11.Length
jh.add(sz11)
jh.sort
jh.Reverse
Next '此集合用于计算科目代码的末级科目位数
msgbox(jh(0))
我想判断一列字符串长度,找出最长那串的长度值,这列字符串最长为10位,但运行结果显示8是最大值,哪位老师帮看下!!
[此贴子已经被作者于2017/11/10 14:42:07编辑过]