编程论坛 → VB6论坛

VB编程有关上一点，下一点的程序

z18234089392 发布于 2015-06-06 17:15， 393 次点击

Dim j As Integer
Dim AX(100) As Double
Dim GCH(100) As Double

下一点的代码：
AX(j) = Val(Text7.Text)
GCH(j) = Val(Text6.Text)
If Text6.Text = "" Or Text7.Text = "" Then
MsgBox "请输入正确的数据"
Else
Open App.Path & "\jilu.txt" For Append As #1
Print #1, AX(j), GCH(j)
Close #1
Text6.Text = ""
Text7.Text = ""
j = j + 1
lblDXCS.Caption = "第" & Form2.Text1.Text & "断面第" & j & "个地形点参数："
上一点的代码：
j = j - 1
Text6.Text = GCH(j)
Text7.Text = AX(j)
lblDXCS.Caption = "第" & Form2.Text1.Text + 1 & "断面第" & j & "个地形点参数："
我点了上一点后，可以看到以前输入的数据，点下一点就是空的，我应该怎么改改能看到下一点的数据，而且保存在文件中的数据也是对的没有重复

7 回复

#2

z182340893922015-06-06 17:28

回复 2楼边小白

因为我想输入数据，我是想回看的时候，点了好几次上一点后，点下一点的话还能显示之前输过的数据，值到空的，然后再输我没有输过的数据，谢谢。。

#3

z182340893922015-06-06 17:30

回复 2楼边小白

我要输下一点的数据就必须清空，可是我要是按了上一点，再按下一点的话又想显示之前输过的数据

#4

风吹过b2015-06-06 20:18

1、
AX(j) = Val(Text7.Text)
GCH(j) = Val(Text6.Text)
If Text6.Text = "" Or Text7.Text = "" Then
应该先判断再取数，而不是先取数后判断。

2、位置指示变量应该有二个，一个是指示当前显示位置。
另一个是指示当前输入位置。你现在是混用一个了。

#5

z182340893922015-06-06 20:59

回复 6楼风吹过b

不是很明白你说的2.
那应该怎么弄啊？谢谢

#6

lianyicq2015-06-08 09:01

回复楼主 z18234089392

问题看得不是太明白.
是想要输入数据,并在需要的时候显示?
文本框中输入数据,点按钮A写入文件.
需要显示当然不能再用按钮A.
输入数据的时候可以考虑两个按钮,一个确定,一个清空.
显示的时候一个上一条,一个下一条.
你显示的时候是对数组读值,不是对文件操作.

1