Option Explicit
Private Type dataTy '定义数据存放的结构体
Id As Integer
X As Double
Y As Double
Z As Double
Pter As String
Cmd As String
End Type
Public Function dataUp(tempUpId As Integer, dataUpEntity As dataTy)
dataArr(tempUpId - 1) = dataUpEntity
End Function总是报下面的错误,求指教
Private Enum 类型和用户定义类型不能作为公共过程的参数或返回类型、公共数据成员、或公共用户定义类型
Public 过程在工程内的所有模块中都是可见的,而 Private Enum 类型在其模块以外不可见。这个错误的原因与解决方法如下所示: Public 过程是在一个 Public 类中,但它的返回值或某一参数却是在一个标准模块或 Private 类中定义。
请将其声明为 Enum Public。它必须处于一个类模块中详细信息,请选择有问题的项目,并按下 F1 键。
Private Type dataTy '定义数据存放的结构体
Id As Integer
X As Double
Y As Double
Z As Double
Pter As String
Cmd As String
End Type
Public Function dataUp(tempUpId As Integer, dataUpEntity As dataTy)
dataArr(tempUpId - 1) = dataUpEntity
End Function总是报下面的错误,求指教
Private Enum 类型和用户定义类型不能作为公共过程的参数或返回类型、公共数据成员、或公共用户定义类型
Public 过程在工程内的所有模块中都是可见的,而 Private Enum 类型在其模块以外不可见。这个错误的原因与解决方法如下所示: Public 过程是在一个 Public 类中,但它的返回值或某一参数却是在一个标准模块或 Private 类中定义。
请将其声明为 Enum Public。它必须处于一个类模块中详细信息,请选择有问题的项目,并按下 F1 键。
Public Function dataUp(tempUpId As Integer, dataUpEntity As Any)
dim du as datatydu=dataupentity
或者用COPYMEMORY(du,daataupentity)
Cmd As String
定义成定长的STRING
Friend Function dataUp(tempUpId As Integer, dataUpEntity As dataTy)