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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]快速替换

共有7161人关注过本帖树形打印复制链接主题：[求助]快速替换

2900819580

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

加好友

发短信

等级：六尾狐帖子：1347 积分：9817 威望：0 精华：0 注册：2015/6/30 8:46:00

[求助]快速替换 发帖心情

Post By：2022/5/31 0:32:00 [只看该作者]

C.V.C.V0001

C.V.C.V0002

C.V.C.V0003

C.V.C.V0004

C.V.C.V0005

如上数据，替换为

D.V.C.V0001

D.V.C.V0002

D.V.C.V0003

D.V.C.V0004

D.V.C.V0005

我现在的代码是，老师：感觉代码很沉余，有没有简约的代码

Dim tb As Table = Tables( "物料表_table1")

Dim dt As DataTable = tb.DataTable

Dim fr As DataRow = dt.Find("料号 = 'C'")

If fr IsNot Nothing Then fr("料号") = "D"

Dim drs As List(Of DataRow)

drs = dt.Select("料号 like 'C.%'")

For Each dr As DataRow In drs

Dim txt As String = dr("料号")

Dim ts() As String = txt.Split(".")

Dim tx As String = "D"

For i As Integer = 1 To ts.Length - 1

If tx > "" Then tx &= "."

tx &= ts(i)

dr("料号") = tx

hongsejiyi

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

加好友

发短信

等级：小狐帖子：338 积分：5262 威望：0 精华：0 注册：2019/1/1 15:53:00

Post By：2022/5/31 5:57:00 [只看该作者]

参考处理代码：

以下内容为程序代码:

1 Dim dt As DataTable = DataTables("表A")
2 For Each dr As DataRow In dt.DataRows
3 If dr("第二列").StartsWith("C") Then '大写字母开头
4 dr("第二列") = dr("第二列").insert(0, "D").remove(1, 1) '插入大写D，去掉大写C
5 End If
6 Next