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。