| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 393 人关注过本帖
标题:VB编程有关上一点,下一点的程序
只看楼主 加入收藏
z18234089392
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2015-5-29
结帖率:83.33%
收藏
已结贴  问题点数:10 回复次数:7 
VB编程有关上一点,下一点的程序
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 & "个地形点参数:"
我点了上一点后,可以看到以前输入的数据,点下一点就是空的,我应该怎么改改能看到下一点的数据,而且保存在文件中的数据也是对的没有重复
2015-06-06 17:15
z18234089392
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2015-5-29
收藏
得分:0 
回复 2楼 边小白
因为我想输入数据,我是想回看的时候,点了好几次上一点后,点下一点的话还能显示之前输过的数据,值到空的,然后再输我没有输过的数据,谢谢。。
2015-06-06 17:28
z18234089392
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2015-5-29
收藏
得分:0 
回复 2楼 边小白
我要输下一点的数据就必须清空,可是我要是按了上一点,再按下一点的话又想显示之前输过的数据
2015-06-06 17:30
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:4 
1、
AX(j) = Val(Text7.Text)
GCH(j) = Val(Text6.Text)
If Text6.Text = "" Or Text7.Text = "" Then
应该先判断再取数,而不是先取数后判断。

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

授人于鱼,不如授人于渔
早已停用QQ了
2015-06-06 20:18
z18234089392
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2015-5-29
收藏
得分:0 
回复 6楼 风吹过b
不是很明白你说的2.
那应该怎么弄啊?谢谢
2015-06-06 20:59
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:4 
回复 楼主 z18234089392
问题看得不是太明白.
是想要输入数据,并在需要的时候显示?
文本框中输入数据,点按钮A写入文件.
需要显示当然不能再用按钮A.
输入数据的时候可以考虑两个按钮,一个确定,一个清空.
显示的时候一个上一条,一个下一条.
你显示的时候是对数组读值,不是对文件操作.

大开眼界
2015-06-08 09:01
快速回复:VB编程有关上一点,下一点的程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028538 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved