- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]搜索 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73922)
-- 发布时间：2015/8/29 10:50:00
-- [求助]搜索
老师好，我复制人家的代码设置后报错找不出原因。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:简拼.table |
此主题相关图片如下：360软件小助手截图20150829104527.png
-- 发布时间：2015/8/29 11:07:00
--
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
-- 发布时间：2015/8/29 11:45:00
--
谢谢老师
此主题相关图片如下：360软件小助手截图20150829104527.png
-- 发布时间：2015/8/29 12:00:00
--
测试没看到啊，什么情况出现的
-- 发布时间：2015/8/29 12:01:00
--
增加行输入数据后。
-- 发布时间：2015/8/29 12:20:00
--
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