- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问一下我的条件语错在哪儿？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33416)
-- 发布时间：2013/5/17 15:58:00
-- 请问一下我的条件语错在哪儿？
错误代码是：If e.Sender.Value<> "" And Tables("payInfo).Current("name") = "" Then
为什么第一个控件的leave事件可以，而在第二个控件的leave事件里就出错？
谢谢！
-- 发布时间：2013/5/17 16:01:00
--
单独这句代码没有任何问题.
例子发出来看看.
-- 发布时间：2013/5/17 16:01:00
--
没见什么问题
-- 发布时间：2013/5/17 16:02:00
--
可能是这个代码：e.Sender.Value，不一定任何控件都适用
-- 发布时间：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编辑过]
-- 发布时间：2013/5/17 16:11:00
--
要么e.Sender.Value <> Nothing
要么e.Sender.Text <> ""
-- 发布时间：2013/5/17 16:18:00
--
错误提示：
此主题相关图片如下：2.jpg
-- 发布时间：2013/5/17 16:19:00
--
错在那个e参数，第二个控件调第一个控件的值本不该用e参数！
[此贴子已经被作者于2013-5-17 16:20:01编辑过]
-- 发布时间：2013/5/17 16:25:00
--
我把e参数那个条件删除之后出现如下错误提示：
此主题相关图片如下：3.jpg
-- 发布时间：2013/5/17 16:34:00
--
明明少一个双引号，哈哈哈。Tables("payInfo).Current("name")
应该这样：Tables("payInfo").Current("name")
[此贴子已经被作者于2013-5-17 16:34:44编辑过]