主题：递归定义出现错误

代码想要达到根据“分类编码规则”的对该DATATABLE的编码定义，根据这个定义，生成一个递归的目录树；
   

   Dim gz As String = args(2)   希望定义为“分类编码规则”的“规则gz”列；

   

   val(gz(dr("编码级次"))是希望增加编规则的“编码规则”的每一位（例如：编码规则 433，第一位4位数 第二位3位数 第三位3位数），字符转换为数字

      烦您指点 密码12345。