下面代码中的红色行中(3，4)意思是单位编号第3位字符串，后4位尾数，加1，有没有通配符可替换3，因为行业类别字符串的字符数是动态变化的

不知道我说清楚了没有

Select e.DataCol.Name
    Case "行业类别"
        If e.DataRow.IsNull("行业类别") Then
            e.DataRow("单位编号") = Nothing
        Else
            Dim lb As String = e.DataRow("行业类别")
            If e.DataRow("单位编号").StartsWith(lb) = False 
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(单位编号)","行业类别 = \'" & lb & "\' And [_Identify] <> " & e.DataRow("_Identify")) 
                If max > "" Then 
                    idx = CInt(max.Substring(3，4)) + 1 

                Else
                    idx = 1 \'
                End If
                e.DataRow("单位编号") = lb &"-"& Format(idx,"0000")
            End If
        End If
End Select

改成

idx = CInt(max.Substring(bh.length+1, 4)) + 1