[求助] 自己开发了个会员软件，关于会员自动升级的问题，求帮助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我拿foxtable做了个酒吧管理软件，

现在有几个功能不知道怎么做。

1、修改会员类型表里的会员类型后，相应会员数据表里的会员类型同时更改。

例如修改会员类型表里的普通会员为VIP会员，同时更改会员数据表里的所有会员等级为普通会员为VIP会员。

2、会员数据表里有个累计积分，如果某个会员的累计积分达到会员类型表里的升级积分，则自动更改这个会员在会员数据表里的会员等级。

例如会员马娟的累计积分达到了1888，则从普通会员升级为银牌会员，当累计积分到达3888，则升级为金牌会员。

这是项目文件，开发密码151236

下载信息 [文件大小：下载次数： ]
点击浏览该文件:酒吧管理软件.rar

记得用CTRL打开，不然不会加载foxtable的菜单

第一个问题已经解决，求第二个问题的解决方法。

还有另外一个功能，用开发账户登录后，自动加载系统foxtable的菜单，用01用户登录后，再加载我自己的菜单，不然每次修改后，都需要按ctrl打开项目。

[此贴子已经被作者于2015-2-1 23:40:32编辑过]

配图

此主题相关图片如下：1.png

此主题相关图片如下：2.png

不知道我的问题描述清楚了没有？

[此贴子已经被作者于2015-2-1 20:05:54编辑过]

我这里无压力啊，估计是你的版本的问题吧

有没有大神给个DataColChadged代码，或者给个思路。

这个可以解决第一个问题，我已经解决了，现在要解决的是第二个问题，也就是会员自动升级的问题。

If e.DataCol.Name = "累计积分" Then '如果内容发生变动的是累计积分列

Dim dr As DataRow

'否则在产品表查找同名的产品行,将找到的行赋值给变量dr

dr = DataTables("会员类型").Find("[升级积分] > '" & e.NewValue & "'")

If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing

e.DataRow("会员级别") = dr("会员类型")

End If

看看我的代码和你的代码有什么不同！

甜版的代码完美解决了第二个问题，我自己的代码，存在一点点问题。我就说，怎么改，都不是很完美。。。

问题出在了

Dim fdr As DataRow = DataTables("会员类型").Find("升级积分 <= " & e.DataRow("累计积分"), "升级积分 desc")

find 参数上面了。。。

主题：[求助] 自己开发了个会员软件，关于会员自动升级的问题，求帮助