[求助]搜索 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
    Case "名称","所属行业","板块"

        Dim n As Integer
        Dim py As String() = {"@","#","$"}
        Dim Lms As String() = {"名称","所属行业","板块"}
        Dim jps1 As New List(Of String)

        For n = 0 To Lms.Length - 1
            If e.DataRow.IsNull(Lms(n))
                jps1.Add(py(n))
            Else
                jps1.Add(GetPY(e.DataRow(Lms(n)),True))
            End If
        Next


        e.DataRow("简拼") = String.Join("|",jps1.ToArray())
End Select

主题：[求助]搜索