首先应该建立一个combo1的comboBox控件,作为下拉框的最终实现工具。
Private Sub Combo1_Click()
MSFlexGrid1.Row = MSFlexGrid1.RowSel
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = Combo1.Text
End Sub
'Private Sub Combo1_LostFocus()
'Combo1.Text = MSFlexGrid1.Text
'End Sub
Private Sub Form_Load()
Combo1.Visible = False
Combo1.AddItem "aaa"
Combo1.AddItem "bbb"
Combo1.AddItem "ccc"
MSFlexGrid1.Cols = 10
MSFlexGrid1.Rows = 10
End Sub
Private Sub MSFlexGrid1_EnterCell()
If MSFlex...[ 查看全文 ]