● DataGrid内嵌ComboBox 解决方法 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: jek (别无所求), 信区: Visual
标  题: DataGrid内嵌ComboBox 解决方法
发信站: 荔园晨风BBS站 (Wed Oct 17 07:52:16 2001), 转信

昨晚搞出来了，不敢独享，贴出来共乐，呵呵。

先添加一个ComboBox，设Visible=False，在点击DataGrid时再把ComboBox显示
出来，同时把Grid上的数据赋到ComboBox上，离开Grid时把ComboBox结果赋到
Grid上，下面为核心代码：

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol
As Integer)
        Combo1.Visible = True
        Combo1.Text = DataGrid1.Columns(1).Text     '1为要用ComboBox的网格
        Combo1.Width = DataGrid1.Columns(1).Width
        Combo1.Left = DataGrid1.Left + DataGrid1.Columns(1).Left
        Combo1.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row)
End Sub

Private Sub Combo1_Click()
        DataGrid1.Columns(1).Text = Combo1.Text
End Sub

Private Sub Form_Activate()
        Combo1.Visible = False
End Sub

【在 jek (别无所求) 的大作中提到: 】
: 【以下文字转载自 Program 讨论区】
: 【原文由 jek 所发表】
: 有没有人搞过DataGrid内的Columns内嵌一个ComboBox？

--
=== I love Puss forever ===

※ 修改:·jek 於 Oct 18 07:32:48 修改本文·[FROM: 192.168.1.242]
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.1.242]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店