改成这样就没有问题。是不是字符合并的问题,太长了
Dim dt As DataTable = DataTables("MSDS网址")
Dim iii As Integer
For Each dr As DataRow In dt.Select("_Identify is not null","化学品名称")
dr("第六列") = iii
If dr.IsNull("代码") = False AndAlso dr.IsNull("代码2") Then
Dim Multi As String = dr("代码")
If Multi <> "" Then
Dim Values() As String
Values = Multi.split("|")
Dim s As new StringBuilder
For Index As Integer = 0 To Values.Length - 1
If Index > 0 Then
s.AppendLine("|" & Values(Index) & "^" & Index)
Else
s.AppendLine(Values(Index) & "^" & Index)
End If
Next
Dim dms As String = s.Tostring
dms = dms.Replace(vbcrlf,"")
dr("代码2") = dms
dr("代码3") = Values.Length - 1
End If
End If
iii = iii + 1
'Exit For
Next
dt.Save()
MessageBox.Show("ok")