- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]这句代码有问题？怎么执行后变不过来 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70822)
-- 发布时间：2015/6/29 19:51:00
-- [求助]这句代码有问题？怎么执行后变不过来
If dr("时间") Like "8:30*" Then
dr("时间") = "0" & dr("时间")
End If
想把8:30统一格式，变成08:30的！
-- 发布时间：2015/6/29 20:12:00
--
dr("时间") = Format(Cdate(dr("时间")), "mm:dd")
[此贴子已经被作者于2015/6/29 20:12:31编辑过]
-- 发布时间：2015/6/29 20:18:00
--
8:30-10:00
我的DR原来是这样的一些字符型，要把8:30-10:00变成08:30-10:00统一下！
-- 发布时间：2015/6/29 20:25:00
--
此主题相关图片如下：qq截图20150629194937.png
-- 发布时间：2015/6/29 20:35:00
--
1楼的代码测试没有问题
-- 发布时间：2015/6/29 20:52:00
--
没达到目的，统一表中时间列的格式，将8：30-9:30统一改为08:30-09:30,8：30-10:00统一改为08:00-10:00,请大师帮忙！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:国家开放大学考务系统(时间格式).rar |
-- 发布时间：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
-- 发布时间：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
这样也可以！
-- 发布时间：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
-- 发布时间：2015/6/30 9:06:00
--
什么意思？你想做什么功能