请教

解决方案 »

  1.   

    我在MSHFlexGrid 中试过 Listview 估计用这方法也行,你试试,实在不行就换成 MSHFlexGrid的呗。
    cmbInput 为 combo
    Private Sub cmbInput_Click()
        MSHFlexGrid1.Text = cmbInput.Text
        cmbInput.Visible = False
    End Sub
    Private Sub MSHFlexGrid1_Click()
        cmbInput.Visible = True
        cmbInput.Move MSHFlexGrid1.Left + MSHFlexGrid1.CellLeft - 20, MSHFlexGrid1.Top + MSHFlexGrid1.CellTop - 20, MSHFlexGrid1.CellWidth
        cmbInput.Text = MSHFlexGrid1.Text
    End Sub
    Private Sub MSHFlexGrid1_RowColChange()
        cmbInput.Visible = False
    End Sub
    Private Sub MSHFlexGrid1_Scroll()
        cmbInput.Visible = False
    End Sub
    Private Sub MSHFlexGrid1_SelChange()
       cmbInput.Visible = False
    End Sub