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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]重置列

共有2251人关注过本帖树形打印复制链接主题：[求助]重置列

江南小城

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

[求助]重置列 发帖心情

Post By：2016/7/11 9:42: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

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)

jps1.RemoveAt(n1+1)

For Each py In jps1

jps+=py & "|"

e.DataRow("简拼") = jps.trim("|")

End Select

此主题相关图片如下：图像 2.png

江南小城

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2016/7/11 10:48:00 [显示全部帖子]

老师，怎样把字母给单元格

江南小城

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00

Post By：2016/7/11 11:00:00 [显示全部帖子]

老师，我搞错了行没有数据，现在好了。谢谢。

下一主题 >> << 上一主题

主题：[求助]重置列