主题：[求助]搜索

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:简拼.table

此主题相关图片如下：360软件小助手截图20150829104527.png

此主题相关图片如下：360软件小助手截图20150829104527.png

测试没看到啊，什么情况出现的

增加行输入数据后。

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