我用一个数据控件绑定它后,因为字段名是英文的,所以显示的也是英文,我想自己改为中文

解决方案 »

  1.   

    .TextMatrix(row,col) ="中文"
      

  2.   

    '格式化MSHFlexGrid表格的表头     
    'FormatString的格式为:Col1文本+Col1宽度_Col2文本+Col2宽度_……Coln文本+Coln宽度
    '如果为空列 把Col文本设为 "*"
    Public Sub MsfFormat(tMsf As MSHFlexGrid, FormatString As String, Optional MinCol As Long = 2)
        Dim Col As Long, P As Long, Width As Long
        Dim tStr As String, pStr As String, Text As String
        If FormatString = "" Then
           Exit Sub
        End If
        Col = 0
        pStr = FormatString
        With tMsf
             .Cols = MinCol
             Do While pStr <> ""
                P = InStr(1, pStr, "_")
                If P = 0 Then
                   tStr = pStr
                   pStr = ""
                Else
                   tStr = Mid(pStr, 1, P - 1)
                   pStr = Mid(pStr, P + 1)
                End If
                P = InStr(1, tStr, "+")
                Text = Mid(tStr, 1, P - 1)
                Width = Val(Mid(tStr, P + 1))
                If Text = "*" Then
                   Text = ""
                End If
                'If Width = 0 Then
                '   Exit Do
                'End If
                If Col + 1 > MinCol Then
                   .Cols = .Cols + 1
                End If
                .TextMatrix(0, Col) = Text
                .ColWidth(Col) = Width
                .ColAlignment(Col) = 4
                .ColAlignmentFixed(Col) = 4
                Col = Col + 1
             Loop
        End With
    End Sub