Private Function DataPreparation()
'DateTime detail
Dim dateFrom As Date = dtp_dateFrom.Value.ToShortDateString
Dim dateTo As Date = dtp_dateTo.Value.ToShortDateString
Dim timeFrom As Date = dtp_timeFrom.Value.ToShortTimeString
Dim timeTo As Date = dtp_timeTo.Value.ToShortTimeString
Dim detail() = {ContainItemID, ApItemType, dateFrom, dateTo, timeFrom, timeTo}
Return detail
End Function
为什么数组会将dateFrom转换为字符串?如何在数组中保留不同的数据类型?
答案 0 :(得分:2)
数组不能包含不同的数据类型。
如果要存储和返回值,有两种解决方案:
<强> 1。将所有值转换为相同的数据类型
您可以将所有值转换为字符串
的数组Dim MyArray() As String
<强> 2。创建对象
您可以创建一个对象: (这不是您需要的确切代码我认为您尝试找出所需的数据类型会更好,并且会帮助您创建有用的对象。
Public Class Dater
Dim dateFrom As Date
Dim dateTo As Date
Dim timeFrom As String
Dim timeTo As String
End Class