Question

vb+access command1 使得text1.text和text2.text 分别加1

程序下次启动，text1.text 和text2.text显示上次最后操作结果
数据库db1.mdb,我用adodc1,达不到预想效果，请教各位

Answer 1

'这样的话你可以先把text1中的内容存入文本
'然后打开的时候再把文本里面的东西读出来
'写入
a = Text1.Text
Open App.Path + "\001.txt" For Output As #1
Print #1, a
Close #1
'读取
Open App.Path + "\001.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, b
a = a & b & vbcrlf
Loop
Close #1
Text1.Text = a