以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于字符串长度比较的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109374)
--  作者：18911864822
--  发布时间：2017/11/10 14:33:00
--  关于字符串长度比较的问题
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编辑过]
--  作者：有点甜
--  发布时间：2017/11/10 15:09:00
--  
Dim fdr as DataRow = Nothing
For Each dr As DataRow In DataTables("科目余额表1").Select("科目代码 like \'1122*\'") \'此集合用于计算科目代码的末级科目位数
    If fdr Is Nothing Then
        fdr = dr
    ElseIf fdr("科目代码").length < dr("科目代码").length Then
        fdr = dr
    End If
Next \'此集合用于计算科目代码的末级科目位数
msgbox(fdr("科目代码"))
--  作者：18911864822
--  发布时间：2017/11/10 15:30:00
--  
老师，
Dim fdr as DataRow = Nothing这句代码是什么意思呢，声明一空行来装数据吗？
--  作者：有点甜
--  发布时间：2017/11/10 15:51:00
--  
以下是引用18911864822在2017/11/10 15:30:00的发言：
老师，
Dim fdr as DataRow = Nothing这句代码是什么意思呢，声明一空行来装数据吗？

 

是的，用来装你查找的数据。
--  作者：18911864822
--  发布时间：2017/11/10 17:24:00
--  
字符位数超过12位又判断不出来了老师，只能判断到9位！！
--  作者：有点甜
--  发布时间：2017/11/10 17:44:00
--  
 不明白你的意思，请上传具体实例说明你的问题。
--  作者：18911864822
--  发布时间：2017/11/10 17:50:00
--  
又好了，判断出来了！！