- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎样判断另一表中没有当前表的编号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1307)
-- 发布时间：2008/12/3 17:24:00
-- [求助]怎样判断另一表中没有当前表的编号
要判断另一表中没有当前表的编号，请帮修改下面代码：
Dim b As integer = Tables("当前表").Current("编号")
Dim drs As List(Of DataRow)
Dim dr As DataRow = DataTables("另一表").Find("[编号] = \'b\'")
if 【找不到与当前表相同的编号】
output.show("没有该号!")
End If
-- 发布时间：2008/12/3 17:31:00
--
Dim b As integer = Tables("当前表").Current("编号")
Dim dr As DataRow = DataTables("另一表").Find("[编号] = \'" & b & "\'")
if dr Is Nothing
output.show("没有该号!")
End If
[此贴子已经被作者于2008-12-3 17:31:56编辑过]
-- 发布时间：2008/12/3 17:34:00
--
注意,Find 的参数,必须组合得到.
你一楼的 "[编号] = \'b\'" 是错误的. 系统只会把b当成一个字母,而不是你申明的整型变量.
-- 发布时间：2008/12/3 17:38:00
--
以下是引用lxl在2008-12-3 17:31:00的发言：
Dim b As integer = Tables("当前表").Current("编号")
Dim dr As DataRow = DataTables("另一表").Find("[编号] = \'" & b & "\'")
if dr Is Nothing
output.show("没有该号!")
End If
Dim b As integer = Tables("当前表").Current("编号")
Dim dr As DataRow = DataTables("另一表").Find("[编号] = \'" & b & "\'")
if dr Is Nothing
output.show("没有该号!")
End If
[此贴子已经被作者于2008-12-3 17:31:56编辑过]
提示错误！
此主题相关图片如下：未命名.jpg
[此贴子已经被作者于2008-12-3 17:38:22编辑过]
-- 发布时间：2008/12/3 17:44:00
--
哈哈，上面代码没有问题！～
又是光标没有落在当前表内造成的！
-- 发布时间：2008/12/4 23:16:00
--
if dr Is Nothing
改成 if dr Is Nothing then