>Hello,
>
>I am writing an application with a lot of forms that need to have grids displaying data from tables. Some of the fields of the grid must show a combobox and the displayed value is a meaningful text string. The value in the actual table field is a shorter key value for this text.
>
>For example, the table field might have "TH" stored in it. The grid must display "Thickness" in the field. The user must be able to alter the value in this field by selecting a value from the combobox (that must appear in this field).
>
>Any help is much appreciated,

Add a ListBox and make its visible property to False.


Add this code to the form declaration

Option Explicit 
Dim intColIdx As Integer 
 'This will contain the index for the current  cell in the dbgrid 
Dim blnListShow As Boolean 'is the list showing or not 


Private Sub DBGrid1_ButtonClick(ByVal ColIndex As Integer) 
Dim intTop As Integer 
intColIdx = ColIndex 
If blnListShow = False Then 'if the list is not showing then... 
blnListShow = True 
List1.Left = DBGrid1.Columns(ColIndex).Left + 360 
intTop = DBGrid1.Top + (DBGrid1.RowHeight * (DBGrid1.Row +2)) 
 List1.Top = intTop 
 List1.Width = DBGrid1.Columns(ColIndex).Width + 15 
                     List1.Visible = True 
                  List1.SetFocus 
Else 'if the list is show, hide it 
             blnListShow = False 
              List1.Visible = False 
End If 
End Sub 

Private Sub Form_Load() 
   blnListShow = False 'initialize 
End Sub 

Private Sub List1_Click() 
   DBGrid1.Columns(intColIdx).Text = List1.Text 
   'set the value of the dbgrid 
   List1.Visible = False 'hide the list 
End Sub 

Private Sub List1_LostFocus() 
   blnListShow = False 
   List1.Visible = False 
End Sub