以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何对数据内的回车符前插入数值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104855)
--  作者：zhuya820
--  发布时间：2017/8/7 5:42:00
--  如何对数据内的回车符前插入数值

【回车列】数据中都会有N个回车行，但行数是对称的，这样可以判断对回车符前进行替换插入【回车符前插队列】对应的内容
查找回车分组如何合成以上字符串
[此贴子已经被作者于2017/8/15 8:28:40编辑过]
--  作者：有点甜
--  发布时间：2017/8/7 10:12:00
--  

Dim s1 = "a" & vbcrlf & "b" & vbcrlf & "c"
Dim s2 = "1" & vbcrlf & "2" & vbcrlf & "3"

s1 = s1.replace(chr(10), "").split(chr(13))
s2 = s2.replace(chr(10), "").split(chr(13))

Dim nstr As String = ""
For i As Integer = 0 To s1.length-1
    nstr &= s1(i) & "-" & s2(i) & vbcrlf
Next
msgbox(nstr)
--  作者：zhuya820
--  发布时间：2017/8/8 16:03:00
--  
那不规则字符如何照你这个编写呢
又例如，这才是我想要的不规则合并
[此贴子已经被作者于2017/8/15 8:28:51编辑过]
--  作者：zhuya820
--  发布时间：2017/8/8 16:47:00
--  
老师见到速回
还有那
Dim s1 = "a" & vbcrlf & "b" & vbcrlf & "c"            ‘这里为什么不用指定数据类型
Dim s2 = "1" & vbcrlf & "2" & vbcrlf & "3"
s1 = s1.replace(chr(10), "").split(chr(13))
s2 = s2.replace(chr(10), "").split(chr(13))
Dim nstr As String = ""                ’“”这个又在合成有什么含义
For i As Integer = 0 To s1.length-1
    nstr &= s1(i) & "-" & s2(i) & vbcrlf       \'这段前面  nstr &=没太看懂
Next
msgbox(nstr)

望解答？？？
谢谢老师
--  作者：有点甜
--  发布时间：2017/8/8 16:49:00
--  

你需要的就是二楼的代码啊，你现在有什么问题？

 

如果写到datacolchanged事件，这样写

 

Select Case e.DataCol.name
    Case "A", "B"
        Dim s1 = e.DataRow("a")
        Dim s2 = e.DataRow("B")
       
        s1 = s1.replace(chr(10), "").split(chr(13))
        s2 = s2.replace(chr(10), "").split(chr(13))
       
        Dim nstr As String = ""
        For i As Integer = 0 To s1.length-1
            nstr &= s1(i) & "-" & s2(i) & vbcrlf
        Next
       
        e.DataRow("合成") = nstr
End Select
--  作者：zhuya820
--  发布时间：2017/8/8 17:50:00
--  

 

Select Case e.DataCol.name
    Case "A", "B"
        Dim s1 = e.DataRow("a") \'为什么没指定数据类型，这样也可以吗，这没写在教程里
        Dim s2 = e.DataRow("B")
        
        s1 = s1.replace(chr(10), "").split(chr(13))
        s2 = s2.replace(chr(10), "").split(chr(13))
        
        Dim nstr As String = ""
        For i As Integer = 0 To s1.length-1
            nstr &= s1(i) & "-" & s2(i) & vbcrlf    ’nstr &=这为什么后面加&符
        Next
        
        e.DataRow("合成") = nstr
End Select

希望解答以快速学习狐表的相关逻辑写法
--  作者：有点甜
--  发布时间：2017/8/8 18:02:00
--  
以下是引用zhuya820在2017/8/8 17:50:00的发言：


        Dim s1 = e.DataRow("a") \'为什么没指定数据类型，这样也可以吗，这没写在教程里
       

希望解答以快速学习狐表的相关逻辑写法

 

如果没有指定类型，默认就是object类型的，相当于 Dim s1 As Object
--  作者：zhuya820
--  发布时间：2017/8/8 18:16:00
--  
喔教程没写，数据还可以这么玩。
 
nstr &= s1(i) & "-" & s2(i) & vbcrlf    ’nstr &=这为什么后面加&连接符又什么意思呢？？？
--  作者：有点蓝
--  发布时间：2017/8/8 20:30:00
--  
a &= b

就是

a = a & b

这些都是vb.net的语法，可以自己上网搜搜学学