Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这句代码有问题？怎么执行后变不过来


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

主题：[求助]这句代码有问题？怎么执行后变不过来
帅哥哟，离线，有人找我吗？
zgjmost
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		[求助]这句代码有问题？怎么执行后变不过来  发帖心情 Post By：2015/6/29 19:51:00 [只看该作者]

 If dr("时间") Like "8:30*" Then
                dr("时间") = "0" & dr("时间")
            End If

想把8:30统一格式，变成08:30的！
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/29 20:12:00 [只看该作者]

dr("时间") = Format(Cdate(dr("时间")), "mm:dd")

[此贴子已经被作者于2015/6/29 20:12:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2015/6/29 20:18:00 [只看该作者]

8:30-10:00

我的DR原来是这样的一些字符型，要把8:30-10:00变成08:30-10:00统一下！
 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2015/6/29 20:25:00 [只看该作者]


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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/29 20:35:00 [只看该作者]

1楼的代码测试没有问题
 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2015/6/29 20:52:00 [只看该作者]

没达到目的，统一表中时间列的格式，将8：30-9:30统一改为08:30-09:30,8：30-10:00统一改为08:00-10:00,请大师帮忙！

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:国家开放大学考务系统(时间格式).rar
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/29 20:56:00 [只看该作者]

没问题啊

 

For Each dr As DataRow In DataTables("选课数据表").DataRows
    If dr("时间") Like "8:30*" Then
        dr("时间") = "0" & dr("时间")
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2015/6/29 21:15:00 [只看该作者]

With Tables("表A")
    For Each r As Row In .Rows
        If r("时间").StartsWith("8:30") Then
            r("时间") = r("时间").Insert(0,"0")
        End If
    Next
End With

 

这样也可以！
 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2015/6/29 23:50:00 [只看该作者]

Dim shj_a() As String
For Each r As Row In Tables("表A").Rows
    If r.IsNull("时间") = False Then '排除空值
       
        shj_a = r("时间").Split(":") '用指定的字符分割字符串
       
        '判断数组的第一个元素
        If shj_a(0).Length = 1 Then
            shj_a(0) = shj_a(0).Insert(0,"0")
        End If
       
        '判断数组的第二个元素
        If shj_a(1).Length = 4 Then
            shj_a(1) = shj_a(1).Insert(3,"0")
        End If
       
        r("时间") = String.Join(":",shj_a) '用指定的字符合并数组中的各元素,并返回值.
       
    End If
Next

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/30 9:06:00 [只看该作者]

 什么意思？你想做什么功能

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