自定义数组判断为nothing的疑惑

KevinData

'物品类
Public Type WupingClass
   id As String  'id
   number  As Long  '数量
   per As Long   '概率
   value As Long  '价值
   daju_name As String  '名字
   daoju_type As String '道具类型
   daoju_zhanli As String '道具战力
   daoju_pinzhi As String  '道具品质
End Type


Public Common_DaoJu_List() As WupingClass

Function 判断是否需要加载DaoJuList()
    If Common_DaoJu_List Then
       tmpa = 获得道具定价数据(Common_DaoJu_List)
    End If
End Function


使用Ubound去判断超出数组界限
使用typename 或者  is nothing 提示类型不对 或者需要在公共模块定义。求教

我想弄的就是Common_DaoJu_List 没有数据的话 我就重新复制一份数据给他。

microyip

没看明白问啥呢

KevinData

microyip 发表于 2019-6-1 15:46
没看明白问啥呢

就是我定义了一个数组as自定义的type   我想判断这个数组是否为nothing。这个的描述清楚吗

microyip

KevinData 发表于 2019-6-1 15:50
就是我定义了一个数组as自定义的type   我想判断这个数组是否为nothing。这个的描述清楚吗

这个不是数组，都是通过变量定义出Common_DaoJu_List，程序一启动，这个变量就产生，不需要判断的呀

KevinData

microyip 发表于 2019-6-1 16:03
这个不是数组，都是通过变量定义出Common_DaoJu_List，程序一启动，这个变量就产生，不需要判断的呀

我需要给他赋值  如果有数据了我就不再赋值了。 我判断他的时候现在就是不知道用什么函数去判断。

vbexcelhome

提供一个变通的思路，在自定义物品类中增加一个标记变量，写入数据的同时，把这个变量设置为真，用的时候只要检测这个变量就行了。

KevinData

vbexcelhome 发表于 2019-6-1 16:38
提供一个变通的思路，在自定义物品类中增加一个标记变量，写入数据的同时，把这个变量设置为真，用的时候只 ...

我现在这样做的  打开界面将数组redim list(0) 然后就有数据 判断ubound是否0

microyip

KevinData 发表于 2019-6-1 16:14
我需要给他赋值  如果有数据了我就不再赋值了。 我判断他的时候现在就是不知道用什么函数去判断。

Common_DaoJu_List.id=""的话就是没赋值咯

maditate

IsEmpty 函数
请参阅     示例     特性

返回 Boolean 值，指出变量是否已经初始化。

语法

IsEmpty(expression)

必要的 expression 参数是一个 Variant，包含一个数值或字符串表达式。但是，因为 IsEmpty 被用来确定个别变量是否已初始化，所以 expression 参数通常是单一变量名。

说明

如果变量未初始化或已明确设置为 Empty，则 IsEmpty 返回 True；否则返回 False。如果 expression 含有多个变量，则 IsEmpty 总是返回 False。IsEmpty 只返回对 variant 表达式有意义的信息。

vbexcelhome

KevinData 发表于 2019-6-1 17:08
我现在这样做的  打开界面将数组redim list(0) 然后就有数据 判断ubound是否0

当我没有说，只是个提供思路的建议。  :）