主题：[求助]为何我的ComboBox改变不了字体颜色？

Public Sub SetWinTableColTexts( byval tWinTable As Table , byval tColTexts As String ) '表列名设置格式;|

   tColTexts = tColTexts.trim

   If tWinTable Is Nothing OrElse tColTexts = "" Then Exit Sub

   Dim aColTxt() As String = tColTexts.Split(";")

   For Each tStr As String In aColTxt

       Dim aStr() As String = tStr.Split("|")

       If Ubound(aStr)>0 Then

          Dim tCol As Col = tWinTable.Cols(aStr(0).Trim)

          Dim xStr As String = aStr(1).Trim

          If  tCol IsNot Nothing AndAlso xStr <> "" Then tCol.Caption = xStr

       End If

   Next

End Sub