- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教：输入后判断问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7026)
-- 发布时间：2010/5/7 20:48:00
-- 请教：输入后判断问题
三个表，订单表，工序表，订单工序表
想实现：在订单工序表中，增加新订单工序时，当选择工序后，会判断该订单的该工序是否己经存在，当存在时，会提示“工序己存在”，应如何操作？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:实例.table |
[此贴子已经被作者于2010-5-7 21:22:18编辑过]
-- 发布时间：2010/5/7 21:34:00
--
参考一下帮助中的Find，我想应该可以达到。
-- 发布时间：2010/5/7 22:21:00
--
是这样吗？：：：
Dim drs As List(Of DataRow)
drs = DataTables("订单工序").Select("[编号] = \'" & Tables("订单工序").current("编号") & _
"\'and [订单名称] = \'" & Tables("订单工序").current("订单名称") & _
"\'and [工序名称] = \'" & Tables("订单工序").current("工序名称") & "\'")
If drs.count > 1 Then
output.show("工序己存在") \'
End If
-- 发布时间：2010/5/7 22:55:00
--
谢谢，我试试
-- 发布时间：2010/5/7 23:08:00
--
还是不太好用，应该 放在哪个事件下？
-- 发布时间：2010/5/7 23:33:00
--
事件：DataColChanged：
If e.DataCol.Name = "工序名称" Then
Dim drs As List(Of DataRow)
drs = DataTables("订单工序").Select("[编号] = \'" & Tables("订单工序").current("编号") & _
"\'and [订单名称] = \'" & Tables("订单工序").current("订单名称") & _
"\'and [工序名称] = \'" & Tables("订单工序").current("工序名称") & "\'")
If drs.count > 1 Then
messagebox.show("工序己存在") \'
Tables("订单工序").current("工序名称") = "^_^"
Tables("订单工序").Select(Tables("订单工序").position,Tables("订单工序").Cols("工序名称").Index)
End If
End If
[此贴子已经被作者于2010-5-7 23:38:09编辑过]
-- 发布时间：2010/5/8 13:51:00
--
OK 谢谢