2003转2005存在几个问题
第一个代码：
Public Function SetTotalType(ByVal strTottype() As String)
arrayTotalType = strTottype
End Function
警告1：
函数没有as语句，假定返回类型object
我知道 应该在public 后面加一个 as ***的，大虾们知道后面是什么吗？

警告2：
end fuction那边提示
函数“SetTotalType”并非在所有代码路径上都返回值。当使用结果时，可能会在运行时发生空引用异常。

第二个代码：
Dim UpdateRow(dt.Columns.Count - 1)

警告：
变量声明没有“As”子句；假定为 Object 类型。




[解决办法]
SetTotalType函数是不是要反回值，这个值 就是了，如string

2.
Public Function SetTotalType(ByVal strTottype() As String) as string
SetTotalType=""
arrayTotalType = strTottype
End Function
[解决办法]
这个函数没看到返回什么值是不是用过程更好如

Public sub SetTotalType(ByVal strTottype() As String)
arrayTotalType = strTottype
End sub
[解决办法]
还差一个
Dim UpdateRow as integer = dt.Columns.Count - 1