1,217
社区成员




Private Function Inbox_Update()
Dim tempString As String
Dim tempKind As String
Dim tempName As String
Dim tempNumber As String
List3.Clear
rs_inbox.Open "select * from inbox order by time asc", conn, 2, 2
‘rs_inbox.Open "select * from inbox order by time desc", conn, 2, 2
If rs_inbox.BOF = False Then
rs_inbox.MoveFirst
rs.Open "select * from NAME", conn, 2, 2
While rs_inbox.EOF = False
If IsNull(rs_inbox.Fields("message")) Then
tempString = "空文本"
Else
tempString = rs_inbox.Fields("message")
End If
Select Case rs_inbox.Fields("kind")
Case 0
tempKind = "未知信息"
Case 1
tempKind = "SOS 位置"
Case 2
tempKind = "SOS 信息"
Case 3
tempKind = "上报位置"
Case 4
tempKind = "上报信息"
End Select
If IsNull(rs_inbox.Fields("name")) Then
tempNumber = rs_inbox.Fields("number")
rs.MoveFirst
rs.Find "number= '" & tempNumber & "' "
If rs.EOF Then
tempName = "未命名"
Else
If IsNull(rs.Fields("name")) Then
tempName = "未命名"
Else
rs_inbox.Fields("name") = rs.Fields("name")
End If
End If
Else
tempName = rs_inbox.Fields("name")
End If
If Len(tempName) < 4 Then tempName = tempName + " "
List3.AddItem tempKind + " " + tempName + vbTab + " " + tempString
'If Len(tempString) < 5 Then tempString = tempString + " "
''List5.AddItem tempString + vbTab + " " + rs.Fields("number").Value
rs_inbox.MoveNext
Wend
rs.Close
End If
rs_inbox.Close
UptadeInbox_Flag = 1
End Function