初学cq，各位帮帮忙！
我想实现在前一个版本处输入数据（比如：1）
在计划版本处实现自动增加（即当点击时自动变为2），能实现吗？怎么做的！

问题已经解决 [打开主题]

本主题的最佳答案为 [ 2 楼].

这个实现起来很简单，
假设：
前个版本的字段为：PreVersion
计划版本的字段为：NxtVersion
并且这两个字段都是INT类型的，

可以在前个版本（PreVersion）的Value Change上加入以下代码：
Dim prever
prever = GetFieldValue("PreVersion").GetValue
SetFieldValue "NxtVersion", prever + 1

这样就可以实现你的效果了~

我已经测试过了，是可以的：D

[ 本帖最后由 yunshan 于 2006-12-22 15:07 编辑 ]

最佳答案

该回答被楼主/管理员列为正解!

错了吧，没有+1！

引用:

原帖由 chensynge 于 2006-12-22 13:03 发表
错了吧，没有+1！

呵呵，你编辑了啊！
不过还是错出了，我截了图你看是什么问题

你仔细看了吗，我说的是把这两个字段定义成INT类型的，而你的应该是String类型的。

我也试了报同样错误

我把过程截图了，yunshan用的是int，还望帮忙。

大家重新看一下我上面的帖子，刚测试过，是OK的，自段都是INT类型的。

yunshan,这次没问题了。
我自己第一次做的时候，是这样做的。在Value changed
添加
Dim x
x=GetFieldValue(fieldname).GetValue()+1
SetFieldValue fieldname, prever
并把NxtVersion窗口改成PreVersion,这样当然不能实现。
NxtVersion显示为106，修改了几次+0.0096的值可以接近正确值。
yunshan能给我发几本好的学习Vb的书籍吗/我的邮箱是chensynge@163.com

也要学学！！！！！！