UC知道vb 存储数据
来源：百度知道 编辑：UC知道 时间：2024/05/29 08:05:40
一组text1（0~9）
要把这上面数的数据存起来，且下次打开时可以通过text1(9)上的数据调出，该怎么弄啊？
详细一点啊，谢谢了！
每次运行时，总是“子程序或函数未定义”请帮我看看啊！
这个我真是一点也不懂啊！
Private Type CJ
ZKZH As String
XM As String
XB As String
NL As Integer
ZY As Integer
XX As Integer
JSJJC As Integer
dxyy As Integer
czxt As String
sjlx As String
jlh As Integer
End Type
Private Sub Command4_Click()
For I = 0 To 10
Text1(I).Text = ""
Next
Text1(0).SetFocus
End Sub
Private Sub Command1_Click()
Dim lastrec As Integer
With da
.ZKZH = Text1(0).Text
.XM = Text1(1).Text
.XB = Text1(2).Text
.NL = Val(Text1(3).Text)
.ZY = Val(Text1(4).Text)
.XX = Val(Text1(5).Text)
.JSJJC = Val(Text1(6).Text)
.dxyy = Val(Text1(7).Text)
.sjlx = Val(Text1(9).Text)
.jlh = Val(Text1(10).Text)
End With
Open "xsda2.dat" For Random As #1 Len = Len(da)
lastrec = LOF(1) / Len
要把这上面数的数据存起来，且下次打开时可以通过text1(9)上的数据调出，该怎么弄啊？
详细一点啊，谢谢了！
每次运行时，总是“子程序或函数未定义”请帮我看看啊！
这个我真是一点也不懂啊！
Private Type CJ
ZKZH As String
XM As String
XB As String
NL As Integer
ZY As Integer
XX As Integer
JSJJC As Integer
dxyy As Integer
czxt As String
sjlx As String
jlh As Integer
End Type
Private Sub Command4_Click()
For I = 0 To 10
Text1(I).Text = ""
Next
Text1(0).SetFocus
End Sub
Private Sub Command1_Click()
Dim lastrec As Integer
With da
.ZKZH = Text1(0).Text
.XM = Text1(1).Text
.XB = Text1(2).Text
.NL = Val(Text1(3).Text)
.ZY = Val(Text1(4).Text)
.XX = Val(Text1(5).Text)
.JSJJC = Val(Text1(6).Text)
.dxyy = Val(Text1(7).Text)
.sjlx = Val(Text1(9).Text)
.jlh = Val(Text1(10).Text)
End With
Open "xsda2.dat" For Random As #1 Len = Len(da)
lastrec = LOF(1) / Len
倒数第二行 tex1(0).SetFocus 掉了一个 t
text1(0).SetFocus
倒数第三行call readdata,你程序里有readdata过程吗？就是
private sub readate()或
private function readdate()
一、一组text1（0~9）,可实际是text1(0~10)，检查是否少了text1(10)，
二、Call readdata这句，请检查readdata函数是否已定义。
HI我好好帮你完善这个程序
你这样写不能满足你的要求