Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问一下我的条件语错在哪儿？


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

主题：请问一下我的条件语错在哪儿？
帅哥哟，离线，有人找我吗？
xfilemark
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：121 积分：960 威望：0 精华：0 注册：2013/4/9 3:23:00 		请问一下我的条件语错在哪儿？  发帖心情 Post By：2013/5/17 15:58:00 [只看该作者]

错误代码是：If e.Sender.Value<> "" And Tables("payInfo).Current("name") = "" Then

为什么第一个控件的leave事件可以，而在第二个控件的leave事件里就出错？

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/5/17 16:01:00 [只看该作者]

单独这句代码没有任何问题. 
例子发出来看看.
 回到顶部
帅哥哟，离线，有人找我吗？
XYT
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00 		  发帖心情 Post By：2013/5/17 16:01:00 [只看该作者]

没见什么问题

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


加好友 发短信
等级：二尾狐 帖子：531 积分：4155 威望：0 精华：0 注册：2012/11/26 21:54:00 		  发帖心情 Post By：2013/5/17 16:02:00 [只看该作者]

可能是这个代码：e.Sender.Value，不一定任何控件都适用

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


加好友 发短信
等级：幼狐 帖子：121 积分：960 威望：0 精华：0 注册：2013/4/9 3:23:00 		  发帖心情 Post By：2013/5/17 16:04:00 [只看该作者]

If e.Sender.Value<> "" And Tables("payInfo).Current("name") = "" Then
    Dim nlist As List(of DataRow) = DataTables("payInfo").Select("tel = '" & e.Sender.Text
 &  "'")
    If nlist IsNot Nothing Then
        Tables("payInfo").current("name") = nlist(0)("name")
        Dim cb As WinForm.ComboBox = e.Form.Controls("nameBox")
        cb.ComboList = DataTables("payInfo").GetComboListString("name","[tel] = '"&
e.sender.value  &"'")
    End If
ElseIf e.Sender.Value<>"" And Tables("payInfo).Current("name") <> "" Then
    Dim dr As DataRow
    dr = DataTables("payInfo").find("tel = '"&Tables("payInfo").Current("tel")&"' And name
= '"& e.Sender.Value &"'","ref Desc",1)
    If dr IsNot Nothing Then
        If Forms("CC收费系统").Opened Then
            Tables("payInfo").Current("id") = dr("id")
        End If
    Else
        Tables("payInfo").Current("id") = "XS"&Tables("payInfo").Current("ref")
    End If
End If

这个就是写在comBox控件leave事件中出错的代码。
但是另一个comBox控件leave事件中，这种表达式又没有问题！
[此贴子已经被作者于2013-5-17 16:07:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2013/5/17 16:11:00 [只看该作者]

要么e.Sender.Value <> Nothing

要么e.Sender.Text <> ""


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


加好友 发短信
等级：幼狐 帖子：121 积分：960 威望：0 精华：0 注册：2013/4/9 3:23:00 		  发帖心情 Post By：2013/5/17 16:18:00 [只看该作者]

错误提示：
图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7253 积分：40736 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2013/5/17 16:19:00 [只看该作者]

错在那个e参数，第二个控件调第一个控件的值本不该用e参数！
[此贴子已经被作者于2013-5-17 16:20:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xfilemark
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：121 积分：960 威望：0 精华：0 注册：2013/4/9 3:23:00 		  发帖心情 Post By：2013/5/17 16:25:00 [只看该作者]

我把e参数那个条件删除之后出现如下错误提示：
图片点击可在新窗口打开查看此主题相关图片如下：3.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2013/5/17 16:34:00 [只看该作者]

明明少一个双引号，哈哈哈。Tables("payInfo).Current("name")

应该这样：Tables("payInfo").Current("name")

[此贴子已经被作者于2013-5-17 16:34:44编辑过]
 回到顶部
总数 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.04492 秒, 4 次数据查询