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

读取文本文件内容。debug.print 是立即窗口输出
把debug.print 改为print就是窗体输出
完了后记得close

reno = LOF(1) / Len(xDate)           '文件总长度除记录长度,得到记录数
i = 1                                '从1开始计数
Do While 〈 = reno
Get #1, i, xDate                     '按记录长度 ,读出每条记录
Debug.Print xDate.Name1, xDate.Phon, xDate.PostCd     '在立即窗口显示 记录的各个字段
i = i + 1                            '计数
Loop

--------------------------
Open "H:\程序新编\新建文本文档.txt" For Random As 1
你这行错了. 没有带记录的长度.