none
請問 TDBGrid 的 Combox RRS feed

  • 問題

  • 請問TDBGrid 的 Combox如何才能動態呈現資料

    我寫在Form_Load

    讓資料動態加入TDBGrid 的欄位中

    但是資料就是無法顯示出來

    請問我還有什麼沒有設定到的嗎??

    程式碼如下:

        '準備Combo Box
        Set VItems = TDBGrid1.Columns("Fieldnm").ValueItems
        If CaseGroup.RecordCount > 0 Then
           CaseGroup.MoveFirst
           While Not CaseGroup.EOF
               VItem.Value = CaseGroup("Fieldnm")
               VItem.DisplayValue = CaseGroup("Fieldnm")
               VItems.Add VItem
               CaseGroup.MoveNext
           Wend
        End If
        VItems.Translate = True
        VItems.Presentation = dbgComboBox

    謝謝大家

     

     

     

    2006年5月12日 上午 07:51

解答