1、首先，[比对表]和[职工表]中都有 列“存盘时间”，属性为日期时间型，列属性为 日期格式：datelongtime
2、代码如下：
Dim wl_zg1 As DateTime '定义 保存时间
Dim wl_zg2 As DateTime '定义 保存时间
wl_zg1 = 0
Dim x As Integer
For Each dry As Row In Tables("用户信息表").Rows
wl_zg1 = DataTables("比对表").Compute("Max(存盘时间)", " 单位代码 = " & dry("单位代码") & " ")
wl_zg2 = DataTables("职工表").Compute("Max(存盘时间)", " 单位代码 = " & dry("单位代码") & " ")
If wl_zg1
Is null andelse wl_zg2 Is null Then
x = 1
ElseIf wl_zg1 IsNot null andelse wl_zg2
IsNot null Then
If wl_zg1 > wl_zg2 Then
x =2
ElseIf wl_zg1 < wl_zg2 Then
x= 3
ElseIf wl_zg1 = wl_zg2 Then
x = 4
Else
x =5
End If
Else
If wl_zg1 = "" Then
x = 6
End If
If wl_zg2 = "" Then
x = 7
End If
End If
Next
3、上述代码红色部分都不对，不知道怎么表示妥当
列【存盘时间】如果是文本格式就用空来表示，如果是数值就用0来表示，可这里是时间格式且是datelongtime，
说明书上也很少有这方面的叙述例子。
请专家指教，关于 时间方面的写法，红色部分该怎样修改呢？
加好友 
发短信
Post By：2015/11/19 22:11:00 [显示全部帖子]
