问题中guest2.dtmIn=now这一句表示不知对不对

Type guest
strname As String * 8
binsex As Boolean
bytage As Byte
strcompany As String * 8
strtitle As String * 8
strroom As String * 8
dtmIn As Data
dtmout As Data
binisin As Boolean
End Type

Public strguestdata As String
Public strguestnum As String
Public strrtitle As String
Public strroomno As String






Dim intnum As Integer
Dim guest1() As guest
Private Sub comtext_Click()
intnum = 0
Dim guest2 As guest
lstname2.Clear
guest2.dtmIn=now
Open strguestdata For Random As 1 Len = Len(guest2)

Do While Not EOF(1)
Get #1, , guest2
If Trim(guest2.strroom) = Trim(comtext.Text) Then



Debug.Print "a=" & Trim(guest2.strroom)
intnum = intnum + 1
Debug.Print "intnum=" & intnum

ReDim Preserve guest1(intnum)
guest1(intnum) = guest2
lstname2.AddItem guest2.strname
End If
Loop
Close #1

End Sub



Private Sub lstname2_Click()
int1 = lstname2.ListIndex + 1
If int1 <= -1 Then
Exit Sub

If guest1(int1).binsex Then
txtsex.Text = "男"
Else
txtsex.Text = "女"
txtcompany.Text = guest1(int1).strcompany
txtage.Text = guest1(int1).bytage
txttitle.Text = guest1(int1).strtitle
If guest1(int1).binisin Then
txtisin.Text = "未退房"
Else
txtisin.Text = "已退房"
txtin.Text = guest1(int1).dtmin
If guest1(int1).binisin = True Then
txtout.Text = "(未退房)"
Else

txtout.Text = guest1(int1).dtmout
End If

End If
End If
End If
End Sub