Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于数字大小判断问题（已解决）


  共有12190人关注过本帖树形打印复制链接

主题：关于数字大小判断问题（已解决）
帅哥哟，离线，有人找我吗？
blackzhu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/13 12:03:00 [显示全部帖子]

你这个扣费金额不保存到表里的?要窗口保存?

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/13 12:18:00 [显示全部帖子]

没有格式化造成的:这样:

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
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/13 12:19:00 [显示全部帖子]

为什么不绑定表,利用列与列之间来判断.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/13 13:01:00 [显示全部帖子]

      所以啊,上次跟你说用筛选或者动态加载.
      你是外部数据源,在项目属性中设置打开项目不加载数据,然后在查询内加入加载代码就可以搞定了.



    那个代码有问题吗?
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/13 13:25:00 [显示全部帖子]

是TEXT的数值格式化的的问题,我的代码没有问题的.我测试过的.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/13 15:01:00 [显示全部帖子]

保存时按保存按钮就自动保存在外部数据源里面的,其余的一点问题都没有的.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/13 15:07:00 [显示全部帖子]

Select Case e.DataTableName
    Case "hyuser"
        e.SelectString = "Select * From [hyuser] Where 0=1"
    Case "表A"
        e.SelectString = "Select * From [表A] Where 0=1"
End Select


以上是不加载数据的代码.

底下的代码是加载的代码:

Dim sjhm As String = e.form.Controls("号码").Value
Datatables("hyuser").LoadFilter='" & sjhm & "'"
Datatables("hyuser").Load
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/13 15:14:00 [显示全部帖子]

Select Case e.DataTableName
    Case "hyuser"
        e.SelectString = "Select * From [hyuser] Where 0=1"
    Case "表A"
        e.SelectString = "Select * From [表A] Where 0=1"
End Select

这段代码放入项目属性中,就可以不加载数据

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/13 15:15:00 [显示全部帖子]

Dim sjhm As String = e.form.Controls("号码").Value
Datatables("hyuser").LoadFilter='" & sjhm & "'"
Datatables("hyuser").Load

这个代码放入查询按钮中就加载数据了.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/6/13 16:26:00 [显示全部帖子]

以下是引用xiaoqiwei在2011-6-13 16:00:00的发言：

加入后出现问题，问题一：提示找不到表A，我把

Case "表A"

        e.SelectString = "Select * From [表A] Where 0=1"
删除后，再看看hyuser表，内容仍让加载进去了




放的位置别错了.不可能有这个问题的.
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04980 秒, 5 次数据查询