共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]怎样判断另一表中没有当前表的编号
1楼
mr725 发表于：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
Dim b As integer = Tables("当前表").Current("编号")
Dim drs As List(Of DataRow)
Dim dr As DataRow = DataTables("另一表").Find("[编号] = 'b'")
if 【找不到与当前表相同的编号】
output.show("没有该号!")
End If
2楼
lxl 发表于：2008/12/3 17:31:00Dim b As integer = Tables("当前表").Current("编号")
Dim dr As DataRow = DataTables("另一表").Find("[编号] = '" & b & "'")
if dr Is Nothing
output.show("没有该号!")
End If
Dim dr As DataRow = DataTables("另一表").Find("[编号] = '" & b & "'")
if dr Is Nothing
output.show("没有该号!")
End If
[此贴子已经被作者于2008-12-3 17:31:56编辑过]
3楼
lxl 发表于：2008/12/3 17:34:00注意,Find 的参数,必须组合得到.
你一楼的 "[编号] = 'b'" 是错误的. 系统只会把b当成一个字母,而不是你申明的整型变量.
4楼
mr725 发表于：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编辑过]
5楼
mr725 发表于：2008/12/3 17:44:00哈哈，上面代码没有问题！～
又是光标没有落在当前表内造成的！
又是光标没有落在当前表内造成的！
6楼
小狐 发表于：2008/12/4 23:16:00if dr Is Nothing
改成 if dr Is Nothing then
共6 条记录, 每页显示 10 条, 页签:
[1]