我的公共函式模塊里的函式
Public Function getDepartName() As ComboBox
Dim comobox1 As ComboBox
部分代碼省略
For Li_i = 0 To Li_RecCount
comobox1.AddItem Trim(My_Recordset.Fields(1).Value)
My_Recordset.MoveNext
Next
End Function
在表單中加載
Private Sub Form_Load()
其他代碼省略
cmoDepart = getDepartName
其他代碼省略
end
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/121715.html
標籤:非技術類
