以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 分隔符问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121114)

--  作者:wumingrong1
--  发布时间:2018/6/29 12:23:00
--  [求助] 分隔符问题

想实现:【改约时间】字段的内容为【改约情况】字段中最后一个“;”分隔符后面的内容;命令该怎么写?

 

比如:

 

1、【改约情况】内容为:2018-04-05 00:00:00      那么【改约时间】的内容自动生成为:2018-04-05 00:00:00

 

2、【改约情况】内容为:2018-04-05 00:00:00;2018-04-05 08:33:00      那么【改约时间】的内容自动生成为:2018-04-05 08:33:00

 

3、【改约情况】内容为:2018-04-05 00:00:00;2018-04-05 08:33:00;2018-04-05 12:00:03    那么【改约时间】的内容自动生成为:2018-04-05 12:00:03

[此贴子已经被作者于2018/6/29 12:24:57编辑过]

--  作者:有点甜
--  发布时间:2018/6/29 14:00:00
--  

Dim str As String = e.datarow("改约情况")

Dim ary = str.split(";”)

e.datarow("改约情况") = ary(ary.length-1) 


--  作者:wumingrong1
--  发布时间:2018/6/30 21:10:00
--  

字段中是带有“;”号并且有 回车 的。命令该怎么写?

 

DataColChanged中写了以下命令;会自动填入第一个时间而不是最后一个时间

 

Select Case e.DataCol.name
    Case "预约上门时间"
        If e.DataRow.isnull("预约上门时间")   Then
        Else
            Dim str As String = e.DataRow("预约上门时间")
            Dim ary = str.split(";vbcrlf")
            e.DataRow("预约上门时间") = ary(ary.length-1)
        End If
End Select

 

 想实现填入内容为: 2018-06-30 18:20:00


此主题相关图片如下:360截图20180630210703632.jpg
按此在新窗口浏览图片

[此贴子已经被作者于2018/6/30 21:24:31编辑过]

--  作者:有点甜
--  发布时间:2018/7/1 17:44:00
--  

2楼代码不变,报错还是怎样?

 

做个例子发上来测试。