定义规则 有了规则 才能 找上级 需要用表定义规则，例如编码规则表
表名 字段名 编码规则
会计科目 科目编码 4222
然后根据 编码规则的长度去一步步筛选
Dim dr As DataRow=DataTables("编码规则表").DataRows(0)
Dim str As String="5001.01.01.02"
Dim sum As Integer
For i As Integer = 0 To dr("编码规则").Length - 1
sum += dr("编码规则").SubString(i,1)
If str.length < sum Then
Exit For
Else
Dim str2 As String=str.Replace(".","").SubString(0,sum)
MessageBox.Show(“各级是：” & str2)
End If
Next
加好友 
发短信
Post By：2017/5/26 16:15:00 [显示全部帖子]
