以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  dr单元格中取值问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101762)

--  作者:扶风
--  发布时间:2017/6/6 19:00:00
--  dr单元格中取值问题
刷卡时间
07:29,19:01

老师,如上在DataTables中的其中一行的dr(\'刷卡时间\')单元格,如何Dim一个A取逗号前的值,Dim一个B取逗号后的值?都是string型的

--  作者:wyz20130512
--  发布时间:2017/6/6 21:02:00
--  
With Tables("表C")
    For Each r As Row In .Rows
        If r.IsNull("刷卡时间") = False Then
            Dim A,B As String
            A = r("刷卡时间").Split(",")(0)
            B = r("刷卡时间").Split(",")(1)
            Output.Show(A)
            Output.Show(B)
        End If
    Next
End With

--  作者:扶风
--  发布时间:2017/6/8 16:16:00
--  
Dim A,B As String
a=dr("刷卡时间").Split(",")(0)
b=dr("刷卡时间").Split(",")(1)
dr("班次")=b

老师,如果单元格是07:57,18:34这种的,运行时是OK的,a=07:57,b=18:34
但07:57这种少一半的就报错超出数组,如何让这种少一半的直接a=07:57,b=nothing?

--  作者:有点蓝
--  发布时间:2017/6/8 16:30:00
--  
Dim A,B As String
Dim arr() As String = dr("刷卡时间").Split(",")
a=arr(0)
If arr.Length > 1 Then
    b=arr(1)
End If
dr("班次")=b