请老大帮忙看看究竟是怎么回事,数字大小比较判断不了,比如我输入手机号13800138000,点查询后得出该账号的余额为300,当我在扣费框中输入301—999都会提示账号余额不足,但是当我输入1000或以上就不会提示,也是就说判断不出,请问老大应该怎么才能解决这个数字打扫判断比较的问题呢?
以下是项目例子:
[此贴子已经被作者于2011-6-13 16:23:50编辑过]
要保存到表的,我的确定按钮代码还没写,现在就是解决这个判断比较问题先,谢谢
[此贴子已经被作者于2011-6-13 12:06:11编辑过]
没有格式化造成的:这样:
Dim Ok1 As Boolean
Dim syye As String = e.form.Controls("剩余余额").Text
Dim kfje As String = e.form.Controls("扣费金额").Value
If kfje Is Nothing Then
e.form.Controls("扣费金额提示").Text = "请输入扣费金额"
ElseIf kfje <= 0 Then
e.form.Controls("扣费金额提示").Text = "请输入扣费金额.不能为 0"
ElseIf kfje >Format(syye,"0000") Then
e.form.Controls("扣费金额提示").Text = "账号余额不足"
Else
e.form.Controls("扣费金额提示").Text = Nothing
Ok1 = True
End If
或者
Dim Ok1 As Boolean
Dim syye As String = e.form.Controls("剩余余额").Text
Dim kfje As String = e.form.Controls("扣费金额").Value
If kfje Is Nothing Then
e.form.Controls("扣费金额提示").Text = "请输入扣费金额"
ElseIf kfje <= 0 Then
e.form.Controls("扣费金额提示").Text = "请输入扣费金额.不能为 0"
ElseIf kfje > Tables("hyuser").Current("账号余额") Then
e.form.Controls("扣费金额提示").Text = "账号余额不足"
Else
e.form.Controls("扣费金额提示").Text = Nothing
Ok1 = True
End If
如果绑定表的话,一打开窗口就会现实第一行的数据了呀!如果要绑定表,如何才能打开窗口时不显示数据呢?只有输入手机号码,点查询按钮后才显示呢?
[此贴子已经被作者于2011-6-13 12:50:08编辑过]
所以啊,上次跟你说用筛选或者动态加载.
你是外部数据源,在项目属性中设置打开项目不加载数据,然后在查询内加入加载代码就可以搞定了.
那个代码有问题吗?
以下是引用xiaoqiwei在2011-6-13 11:51:00的发言:
请老大帮忙看看究竟是怎么回事,数字大小比较判断不了,比如我输入手机号13800138000,点查询后得出该账号的余额为300,当我在扣费框中输入301—999都会提示账号余额不足,但是当我输入1000或以上就不会提示,也是就说判断不出,请问老大应该怎么才能解决这个数字打扫判断比较的问题呢?
以下是项目例子:
[此贴子已经被作者于2011-6-13 11:52:02编辑过]
没看您的文件,但怀疑您的扣费框或余额列类型不是数值型,更改列数据类型试一试!
是TEXT的数值格式化的的问题,我的代码没有问题的.我测试过的.
以下是引用blackzhu在2011-6-13 13:01:00的发言: 所以啊,上次跟你说用筛选或者动态加载.
你是外部数据源,在项目属性中设置打开项目不加载数据,然后在查询内加入加载代码就可以搞定了.
那个代码有问题吗?
问题1:我现在在外部数据表中设置了[姓名] Is NULL,打开项目时不加载hyuser表的所有数据,但是我我要查询时,那加载数据的代码怎么写啊?
问题2:如果在项目属性设置打开项目不加载数据,如何在查询时加入加载代码呢?
问题3:如果加载数据后,我要修改数据,比如重置密码、扣费、增加会员等,数据是直接保存到外部数据库的吗?