[發問] 點選LISTBOX_CLICK一項資料時為何會執行四次呢？

dechiuan999

各位大大好：

  小弟在此先向各位大大
拜個晚年。

祝各位大大
心想事成、事事如意！

  小弟設有二個物件類別，
同時由UserForm_Initialize執行
至Set myOp11.mySqlServer.clsConn = conStr
就會出現不正確的屬性用法。

想請各位大大能指導小弟如何改正語法。
TEST_1.rar (20.32 KB)

下載次數: 3

2014-2-8 10:07

謝謝各位大大！

GBKEE

回復 1# dechiuan999

1.      myOp11.mySqlServer.clsConn = conStr

複製代碼

dechiuan999

回復 2# GBKEE


    謝謝板主大大。
我真有點暈頭轉向，
分不清東西南北。
要賦予值就不可
使用SET設定了。

dechiuan999

各位大大好：
test_listbox.rar (42.34 KB)

下載次數: 5

2014-2-17 07:13

  小弟有一表單並引用MULTIPAGE
設定多個PAGE。
  現有一問題一直困擾多日。在其
中表單PAGE4名稱TEST4設有
COMBOBOX5
TEXTBOX6
OptionButton15
LISTBOX3
步驟一、
首先執行OPTIONBUTTON15之後
取出指定的資料庫並將資料取出。
步驟二、
LISTBOX3會顯示出經DICTIONARY
取出工作表APPSEARCH_DATA欄位A
的資料。
步驟三、
點選LISTBOX3的單筆資料，可再
將客戶資料利用MSGBOX 顯示出來。

可是問題就出在步驟三，當點選一次時，
卻會出現LISTBOX3 CLICK連續執行四次。
小弟先將MLIST3_CLICK修正不進入
資料庫，而是讓其點選資料時；也會同樣
出現執行迴圏四次的情況。
小弟一直想不通，不知要如何解決此問題呢？

謝謝各位大大！
Public Sub mList3_Click()
    '利用ListBox3取出客戶通關案號及編號
    Dim mySql As String
    Dim mApp$
    With mList3
        If s > 1 Then Exit Sub
        If .ListIndex = -1 Then
            'MsgBox "請先選取指定報單號碼"
            Exit Sub
        Else
            mApp = .Value                        
            MsgBox mApp
        End If        
    End With
End Sub

GBKEE

回復 1# dechiuan999

1. Private Sub MultiPage1_Change()
   
2.     Select Case MultiPage1.Value
   
3.     'MultiPage1.Value = 0
   
4.     Case Is = 3
   
5.         mSht1.Cells.Clear
   
6.         mSht2.Select
   
7.         'mSht2.Cells.Clear
   
8.         ReDim myOp15(15 To 18)
   
9.         For i = 15 To 18
   
10.             '這裡表單每一個控制項 循環 4次 指定相同物件的控制項
    
11.             Set myOp15(i) = New allAppCls
    
12.             Set myOp15(i).mySqlServer = New allServerCls
    
13.             myOp15(i).mySqlServer.clsConn = conStr
    
14.             Set myOp15(i).opt15 = Me.Controls("OptionButton" & CStr(i))
    
15.             Set myOp15(i).mTb6 = Me.Controls("TextBox6")
    
16.             Set myOp15(i).mTb7 = Me.Controls("TextBox7")
    
17.             Set myOp15(i).comBox5 = Me.Controls("ComBoBox5")
    
18.             Set myOp15(i).List3 = Me.Controls("ListBox3")
    
19.             
    
20.             Set myOp15(i).Command2 = Me.Controls("CommandButton2")
    
21.             Set myOp15(i).mSht2 = Worksheets("Appsearch_Data")
    
22.             myOp15(i).ck15 = i
    
23.         Next
    
24.         With ComboBox5
    
25.             .AddItem "Server"
    
26.             .AddItem "LocalHost"
    
27.             .ListIndex = 0
    
28.         End With
    
29.         ListBox3.Clear
    
30.     End Select
    
31. End Sub

複製代碼

1. Public Property Set List3(setList3 As MSForms.ListBox)
   
2.     Set mList3 = setList3
   
3.     MsgBox mList3.Parent.Parent.Parent.Name & "-" & mList3.Parent.Parent.Name & "-" & mList3.Parent.Name & "-" & mList3.Name
   
4. End Property

複製代碼

dechiuan999

回復 5# GBKEE


    謝謝板主大大。
板主大大尤如一盞明燈時時給予
我們最佳的指引方向，也讓我們
不會迷失在路途上。

就感恩！