'在窗体上放一个DataGrid1和一个ComboBox1，将Datagrid1的行高设置和combobox1的高度一致
Private Sub datagrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
On Error GoTo ErrCode
ComboBox1.Visible = False
If DataGrid1.Col > 0 And DataGrid1.Row > = 0 Then
ComboBox1.Left = DataGrid1.Columns(DataGrid1.Col).Left
ComboBox1.Top = DataGrid1.RowTop(DataGrid1.Row)
ComboBox1.Width = DataGrid1.Columns(DataGrid1.Col).Width
End If
If DataGrid1.Col = 2 Then '这一列显示combobox1
ComboBox1.Visible = True
End If
ErrCode:
End Sub
Private Sub datagrid1_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
ComboBox1.Visible = False
End Sub
Private Sub datagrid1_RowResize(Cancel As Integer)
On Error GoTo ErrCode
ComboBox1.Visible = False
If DataGrid1.RowHeight > 300 Then DataGrid1.RowHeight = 300
ErrCode:
End Sub
Private Sub datagrid1_Scroll(Cancel As Integer)
On Error GoTo ErrCode
ComboBox1.Visible = False
ErrCOde:
End Sub
Private Sub combobox1_Click()
On Error GoTo ErrCode
If ComboBox1.Text <> " " Then DataGrid1.Text = ComboBox1.Text
DataGrid1.SetFocus
ErrCode:
End Sub
Private Sub combobox1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then combobox1_Click
End Sub
Private Sub datagrid1_HeadClick(ByVal ColIndex As Integer)
On Error GoTo ErrCode
ComboBox1.Visible = False
ErrCode:
End Sub
