Private Type PerDate

Name1 As String
Phon As String * 11
Address As String * 10
PostCd As String * 6

End Type

Dim xDate As PerDate '定义PerDate 类型的变量 xDate

Private Sub Command1_Click()
xDate.Name1 = Text1.Text
xDate.Phon = Text2.Text
xDate.Address = Text3.Text '地址
xDate.PostCd = Text4.Text
Put #1, 1, xDate
Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = ""

End Sub

Private Sub Command2_Click()
reno = LOF(1) / Len(xDate)
i = 1
Do While 〈 = reno
Get #1, i, xDate
Debug.Print xDate.Name1, xDate.Phon, xDate.PostCd
i = i + 1
Loop


End Sub

Private Sub Form_Load()
Open "H:\程序新编\新建文本文档.txt" For Random As 1

End Sub

为什么点  显示  却没反应？
还有Private Sub Command2_Click()
reno = LOF(1) / Len(xDate)
i = 1
Do While 〈 = reno
Get #1, i, xDate
Debug.Print xDate.Name1, xDate.Phon, xDate.PostCd
i = i + 1
Loop


End Sub
这段程序是什么意思？

不是吧！我还没自学到数据库呢、、、5555555555555