主题：请问这段代码那里不对

Dim tb As Table = Tables("地址")
For i as Integer = tb.TopRow To tb.BottomRow
   For Each k As DataRow in Tables("地址").Rows(i).GetChildRows("用户")
     k("生成房号") = System.Text.RegularExpressions.Regex.Replace(k("房号"), "[\D]", "")
         if K("生成房号").length>2 then
             k("层") = k("生成房号").SubString(0,k("生成房号").Length - 2)
             k("号") = k("生成房号").SubString(k("生成房号").Length - 2)      
        end if
    Next

Next

另：建议在foxtable添加System.Text.RegularExpressions命名空间，这样使用起来方便。