Question

vb 要求对象错误，高分求解！！

在窗体F3中click控件的代码如下
If K3 < 24 Then
K3 = K3 + 1
Print K3, A(1, K3), A(2, K3)
Ceyan1(1, K3).Lw = A(1, K3)
Print Ceyan1(1, K3).Lw
Ceyan1(1, K3).Rw = A(2, K3)
Ceyan1(1, K3).Jol = 100
Else
F3.Hide
f4.Show
End If
模块中的代码如下
Public BianHao As Integer
Public Type Geren
Rw As String
Lw As String
Jol As Single
Tm As Integer
TypeWord As String
Acc As Integer
End Type
Public Ceyan1(1, 24), Ceyan2(1, 24), Ceyan3(1, 24) As Geren
Public Name1, Name2, Name3 As String
Public Age1, Age2, Age3 As Integer
Public Sex1, Sex2, Sex3 As String
Public A(2, 24) As String
Public K3 As Integer
a(2,24)变量中时有数据的。
运行后提示错误424：要求对象 光标停留在Ceyan1(1, K3).Lw = A(1, K3)
高分求解！！

Answer 1

Public Ceyan1(1, 24), Ceyan2(1, 24), Ceyan3(1, 24) As Geren
写成
Public Ceyan1(1, 24) As Geren, Ceyan2(1, 24) As Geren, Ceyan3(1, 24) As Geren

VB中几个相同类型的变量不能够通过Ceyan1(1, 24), Ceyan2(1, 24), Ceyan3(1, 24) As Geren这样直接定义的，要分别定义，写在同一行只是生了几个Public或者Dim而已
Ceyan1(1, 24), Ceyan2(1, 24), Ceyan3(1, 24) As Geren
这样写只是定义了Ceyan3(1, 24) As Geren
而
Ceyan1(1, 24), Ceyan2(1, 24), 则定义为任意变量
这就是导致你后来的问题的原因

Answer 2

在变量定义时错了,
应该这样写:
Public Ceyan1(1, 24) As Geren
Public Ceyan2(1, 24) As Geren
Public Ceyan3(1, 24) As Geren

你的那个写法等同于
Public Ceyan1(1, 24)Variant
Public Ceyan2(1, 24)Variant
Public Ceyan3(1, 24) As Geren

Answer 3

声明错了。应该是：
Public Ceyan1(1, 24) As Geren, Ceyan2(1, 24) As Geren, Ceyan3(1, 24) As Geren
你的Public Ceyan1(1, 24)，Ceyan1的数据类型为变体型，这和你的想法不一致的

追问

谢谢，是这样的