C
C.V.C.V0001
C.V.C.V0002
C.V.C.V0003
C.V.C.V0004
C.V.C.V0005
如上数据，替换为
D
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)
Next
dr("料号") = tx
Next
加好友 
发短信
Post By：2022/5/31 0:32:00 [只看该作者]
