Foxtable(狐表)用户栏目专家坐堂 → [求助] 分隔符问题


  共有1939人关注过本帖树形打印复制链接

主题:[求助] 分隔符问题

帅哥哟,离线,有人找我吗?
wumingrong1
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
[求助] 分隔符问题  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/29 14:00:00 [只看该作者]

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

Dim ary = str.split(";”)

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


 回到顶部
帅哥哟,离线,有人找我吗?
wumingrong1
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/1 17:44:00 [只看该作者]

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

 

做个例子发上来测试。


 回到顶部