在控件MSHFlexGrid或DataGrid中如何使用下拉式列表！！！

[xu]

我想在MSHFlexGrid或DataGrid控件中使用下拉式列表框，如何做，急急！！！

[forgettor]

在窗体上加入一个组合框,判断格子的索引,计算位置,放置组合框控件(mshflexgrid似乎可以计算位置(.left?))

[cloud]

在DATAGRID中：
1。设置要出现下拉框的列的button属性为true.
2。加一个list box控件。
3。
Private Sub dgdIntRate_ButtonClick(ByVal ColIndex As Integer)
On Error GoTo ErrHandler

Select Case ColIndex
Case 0:

With dgdIntRate.Columns(ColIndex)
lstPdtCurrInd.Width = .Width
lstPdtCurrInd.Left = .Left + dgdIntRate.Left
lstPdtCurrInd.Top = .Top + Me.dgdIntRate.Top + _
Me.dgdIntRate.RowTop(Me.dgdIntRate.Row)

End With

lstPdtCurrInd.ZOrder (0)
lstPdtCurrInd.Visible = True
lstPdtCurrInd.SetFocus
/////////////////////////////////////////////////
Private Sub lstPdtCurrInd_Click()
If nAddNew Then
recTmpIntRate.AddNew
nAddNew = False
End If
If dgdIntRate.Columns(0).Value <> Empty Then
If dgdIntRate.Columns(0).Value <> lstPdtCurrInd.Text Then
recTmpIntRate("Pdt.-Curr.-Cd") = ""
dgdIntRate.Columns(0).Value = lstPdtCurrInd.Text
End If
End If
dgdIntRate.Columns(0).Value = lstPdtCurrInd.Text

dgdIntRate.DataChanged = True

lstPdtCurrInd.Visible = False
End Sub
//////////////////////////////////////////
如果是MSHFlexGrid改list box 为combo box
MSHFlexGrid没有button属性，在gid得到焦点时
显示combo box。