Select Case e.DataCol.Name
Case "名称","所属行业","板块"
Dim n1 As Integer
Dim Lms,py,jps As String
Dim jps1 As New List(Of String)
Lms ="名称|所属行业|板块"
For Each py In Lms.split("|")
If py =e.DataCol.Name Then
Exit For
End If
n1+=1
Next
If e.DataRow.Isnull(e.DataCol.Name) Then
py ="@|#|$".split("|")(n1)
Else
py = GetPY(e.DataRow(e.DataCol.Name),True)
End If
jps1.AddRange(e.DataRow("简拼").split("|"))
jps1.Insert(n1,py)
If n1 < e.DataRow("简拼").split("|").Length -1 Then
jps1.RemoveAt(n1+1)
End If
For Each py In jps1
jps+=py & "|"
Next
e.DataRow("简拼") = jps.trim("|")
End Select
加好友 
发短信
Post By：2015/8/29 11:07:00 [显示全部帖子]
