老师们 可以帮忙优化一下代码吗？就是在转换的时候，会多一行换行符，导致表格里面的内容最后一个字符是换行，
有没什么办法，就是最后一个字符不是换行。感谢 感谢
Select Case e.DataCol.Name
Case "商品信息_总文件夹名","商品信息_子文件夹名","商品信息_窗口图片名"
Dim data As String = e.DataRow("商品信息_窗口图片名")
Dim str As String = ""
Dim arys() As String = data.Replace("|;", chr(13)).Split(chr(13))
For Each ary As String In arys
Dim idx As Integer = ary.IndexOf(":")
If idx > -1 Then
str += e.DataRow("商品信息_窗口路径") & "\" & ary.SubString(0, idx) & ".tbi" & vbcrlf
End If
Next
e.DataRow("商品信息_窗口图片") = str
End Select '得到窗口图片
Select Case e.DataCol.Name
Case "商品信息_总文件夹名","商品信息_子文件夹名","商品信息_窗口图片名"
Dim str As String = ""
Dim data As String = e.DataRow("商品信息_详解路径")
If data <> Nothing Then
For Each f As String In FileSys.GetFiles(data)
str += f & vbcrlf
Next
End If '窗口图片列的图片来自文件地址列的文件
e.DataRow("商品信息_详解图片") = str
End Select '得到详解图片
加好友 
发短信
Post By：2024/7/15 10:44:00 [只看该作者]
