共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：转换多了换行符
1楼
yangwenghd 发表于：2024/7/15 10:44:00老师们 可以帮忙优化一下代码吗？就是在转换的时候，会多一行换行符，导致表格里面的内容最后一个字符是换行，
有没什么办法，就是最后一个字符不是换行。感谢 感谢
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 '得到详解图片
2楼
有点蓝 发表于：2024/7/15 10:45:00e.DataRow("商品信息_详解图片") = str.trim(vbcrlf)
3楼
yangwenghd 发表于：2024/7/15 10:58:00谢谢 还是不行，这样就只有一行了，可不可以在这个代码的完成后的基础上，添加一行删除最后一个字符，谢谢
4楼
有点蓝 发表于：2024/7/15 11:02:00e.DataRow("商品信息_详解图片") = str.trim(vbcr, vblf)
5楼
yangwenghd 发表于：2024/7/15 11:21:00谢谢 可以了 ，没反应过来，
共5 条记录, 每页显示 10 条, 页签:
[1]