Foxtable(狐表) → 用户栏目 → 专家坐堂 → 改变时间格式 感谢 感谢


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

主题：改变时间格式 感谢 感谢
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		改变时间格式 感谢 感谢  发帖心情 Post By：2017/8/19 13:09:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170819130729.jpg
图片点击可在新窗口打开查看
可以帮忙实现一个这样的功能吗？感谢 感谢 
改变带有“-->”的行。
改变为  行的 第一个“:”（也就是第三个字符）为“[”，
第12的个字符改为“]”，后面的删除。
当然4和5的个字符 等于 本身字符数量+1和2字符的数量*60，（其实1和2是小时，需要转换为分钟。）
然后“，”（逗号部分）改为小数点“.”感谢 感谢 

感谢 感谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:时间转换.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110813 积分：564003 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/8/19 14:21:00 [只看该作者]

Tables("表A").Filter = "输入时间 like '%-->%'"
For Each r As Row In Tables("表A").Rows
    Dim sr() As String = r("输入时间").split(new Char() {":",","})
    r("输出时间") = CExp("[{0}:{1}.{2}]",cstr(val(sr(0)) * 60 + val(sr(1))).PadLeft(2,"0"),sr(2),sr(3).SubString(0,2))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/8/19 15:08:00 [只看该作者]

感谢 感谢 可以了  谢谢 ，能在问问 有什么办法可以筛选出纯数字的行吗？ 感谢感谢 
[此贴子已经被作者于2017/8/19 15:15:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110813 积分：564003 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/8/19 15:32:00 [只看该作者]

使用辅助列

If e.DataCol.Name = "输入时间" Then
    Dim i As Integer = 0
    If Integer.TryParse(e.NewValue,i) = False Then
        e.DataRow("第三列") = -1
    End If
End If

筛选
Tables("表A").Filter = "第三列 <> '-1' or 第三列 is null"
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/8/19 15:40:00 [只看该作者]

第一段放在那里啊？
我担心我会说错，我可以把输入时间列的行全是纯数字的行筛选出来吗？感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110813 积分：564003 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/8/19 15:41:00 [只看该作者]

datacolchanged

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/8/19 16:02:00 [只看该作者]

没有用呢？麻烦了 感谢 感谢 

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110813 积分：564003 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/8/19 16:08:00 [只看该作者]

截图说明问题

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/8/19 16:12:00 [只看该作者]

一没报错，就是没有如何反映。
就是筛选出这是只有数字的行，感谢 感谢 

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170819161018.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110813 积分：564003 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/8/19 16:16:00 [只看该作者]

把代码的列名改为自己正确的列名，然后重置时间输入列

 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08887 秒, 5 次数据查询