主题：关于字符串长度比较的问题

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("科目代码"))

 

是的，用来装你查找的数据。

 不明白你的意思，请上传具体实例说明你的问题。