为什么定义public变量从一个过程到另一个过程就失效?

[zl13]

Public theText As Variant
Public theValue As Variant
Dim Conn As Object
Dim Rs As Object
Const cnConnStr = "DSN=LocalServer;uid=sa;pwd=19821113;Database=pubs"
Const adCmdText = 1
Const RecordsAffected = 60

Private Sub clean_Click()

End Sub

Private Sub execute_Click()

End Sub

Private Sub regtype_Change()
Stop

Dim index As Integer
MsgBox regtype.ListIndex + 1
index = regtype.ListIndex + 1
theValue (index)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Conn = CreateObject("Adodb.Connection")
Conn.Open cnConnStr
CommandText = "Select * from authors"
Set Rs = Conn.execute(CommandText, RecordsAffected, adCmdText)
RowNum = 2
Stop
If ListIndex <> "" Or ListIndex <> 0 Then
MsgBox theValue(ListIndex)
Else
If Not Rs.EOF Then
While Not Rs.EOF
For Colnum = 0 To Rs.Fields.Count - 1
ActiveSheet.Cells(RowNum, 2) = Rs("au_lname").Value
theText = Rs("au_fname")
theValue = Rs("au_id")
regtype.AddItem Rs("au_lname")
Next
Rs.MoveNext
RowNum = RowNum + 1
Wend
End If
End If
End Sub

theValue和theText只要出了Worksheet_SelectionChange就会对象无效,各位高手又什么好办法么

[aohan]

你是不是在不同的窗口或模块中有这样的定义，不然应该不会的

[lxcc]

MsgBox theValue(ListIndex)

//theValue是数组吗?

同时要保证Worksheet_SelectionChange与theValue等在同一窗体代码内,除非在模块內定义

[zl13]

以上就是源程序,就是在同一个窗口下

[lazygod]

不定义为Variant,指明其数据类型又会如何?

[saiko]

看到你的

theText = Rs("au_fname")
theValue = Rs("au_id")

你的字段是什么类型呀？
在定义时最好定义的和你的字段的类型一致啊！！！！！！！

[行云边]

楼主的生日是 1982年11月13日？

[行云边]

Public theText As String
Public theValue As String

或者

Static theText As Variant
Static theValue As Variant

[flyingZFX]

把 Public 写在模块中。

[行云边]

要不也可以 在模块内 写：
Global theText As Variant
Global theValue As Variant

[starsoulxp]

写在模块里吧