combobox的style为2，如何在获取焦点时让combobox的text值变成我要的

Question

Private Sub Combo1_GotFocus()
Combo1.Text = "邮寄"
End Sub

Answer 1

那下拉框不是没了吗，告诉你们吧，我是要点击msflexgrid，然后出现下拉框，供修改msflexgrid中的值

Answer 2

#考
msfglexgrid.text=combo1.text

Answer 3

to  HungryBoy(饥饿的男孩) :我知道，现在是要改combox

Answer 4

大哥，你问问题能不能说明白点阿！
for i=0 to combo1.listcount-1
    if combo1.list(i)=trim(mshflexgrid.text) then
       combo1.listindex=i
       exit for
    end if
next i

Answer 5

for i=0 to combo1.listcount-1
    if combo1.list(i)=trim(mshflexgrid.text) then
       combo1.listindex=i
       exit for
    end if
next i