主题：[求助]这句代码有问题？怎么执行后变不过来

8:30-10:00

此主题相关图片如下：qq截图20150629194937.png

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

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:国家开放大学考务系统(时间格式).rar

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

 

这样也可以！

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