Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]重复问题（老师们再进）


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

主题：[求助]重复问题（老师们再进）
帅哥哟，离线，有人找我吗？
jxjzj2000
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：142 积分：1031 威望：0 精华：0 注册：2011/8/14 1:57:00 		[求助]重复问题（老师们再进）  发帖心情 Post By：2011/8/30 13:46:00 [只看该作者]

各位老师：

客户表有a 和 b两列，我想在订单录入的时候ab两列不重复，就是说，当a重复且b重复的时候，提示录入员已经存在这个客户，并且定位到这个客户，代码如何写，写在什么事件中

[此贴子已经被作者于2011-8-30 17:24:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2011/8/30 13:50:00 [只看该作者]

看链接的示例四：

 

http://help.foxtable.com/topics/0624.htm
 回到顶部
帅哥哟，离线，有人找我吗？
jxjzj2000
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：142 积分：1031 威望：0 精华：0 注册：2011/8/14 1:57:00 		  发帖心情 Post By：2011/8/30 16:20:00 [只看该作者]

竟然帮助中有，找了半天没找到。。。
 回到顶部
帅哥哟，离线，有人找我吗？
jxjzj2000
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：142 积分：1031 威望：0 精华：0 注册：2011/8/14 1:57:00 		  发帖心情 Post By：2011/8/30 16:22:00 [只看该作者]

碰到一个问题：

 

If e.DataCol.Name = "姓名" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("姓名 = '" & e.NewValue & "'")
    If dr IsNot Nothing And dr("发货日期") = e.DataRow("发货日期") Then
        MessageBox.Show("此客户今天订单已录入,请查询客户姓名并加录订单!")
        e.Cancel = True
    End If
End If
If e.DataCol.Name = "发货日期" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("发货日期 = #" & e.newValue & "#")
    If dr IsNot Nothing And dr("姓名") = e.DataRow("姓名") Then
        MessageBox.Show("此客户今天订单已录入,请查询客户姓名并加录订单!")
        e.Cancel = True
    End If
End If

 

这个写在

DataColChanging

有错？

为什么试了几次都不行，老师帮忙检查下，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
jxjzj2000
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：142 积分：1031 威望：0 精华：0 注册：2011/8/14 1:57:00 		  发帖心情 Post By：2011/8/30 16:23:00 [只看该作者]

碰到一个问题：

 

If e.DataCol.Name = "姓名" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("姓名 = '" & e.NewValue & "'")
    If dr IsNot Nothing And dr("发货日期") = e.DataRow("发货日期") Then
        MessageBox.Show("此客户今天订单已录入,请查询客户姓名并加录订单!")
        e.Cancel = True
    End If
End If
If e.DataCol.Name = "发货日期" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("发货日期 = #" & e.newValue & "#")
    If dr IsNot Nothing And dr("姓名") = e.DataRow("姓名") Then
        MessageBox.Show("此客户今天订单已录入,请查询客户姓名并加录订单!")
        e.Cancel = True
    End If
End If

 

这个写在

DataColChanging

有错？

为什么试了几次都不行，老师帮忙检查下，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
jxjzj2000
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：142 积分：1031 威望：0 精华：0 注册：2011/8/14 1:57:00 		  发帖心情 Post By：2011/8/30 16:23:00 [只看该作者]

这样写，当日起相同的时候，姓名无法相同，但是当姓名相同的时候，日期相同却没有提示对话框出现
 回到顶部
帅哥哟，离线，有人找我吗？
jxjzj2000
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：142 积分：1031 威望：0 精华：0 注册：2011/8/14 1:57:00 		  发帖心情 Post By：2011/8/30 18:01:00 [只看该作者]

顶上去哦，问题解决不了

 回到顶部
帅哥哟，离线，有人找我吗？
紙上不談兵
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00 		  发帖心情 Post By：2011/8/30 18:31:00 [只看该作者]

DataColChanged事件:

Dim fl As String
Select Case e.DataCol.Name
    Case "姓名","发货日期"
        fl = "姓名 = '" & e.DataRow("姓名") & " 'And 发货日期 = #" & e.DataRow("发货日期") & "#"
        If e.DataTable.Compute("count(姓名)", fl) > 1 Then
           MessageBox.Show("此客户今天订单已录入,请查询客户姓名并加录订单!")
            e.DataRow(e.DataCol.Name)= Nothing
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/8/31 7:41:00 [只看该作者]

DataColChanged事件
dim dr as datarow
Select Case e.DataCol.Name
 case "姓名","发货日期"
    dr = e.DataTable.Find("姓名 = '" & e.NewValue & "'And 发货日期 =#" & e.newvalue &"#")
    If dr IsNot Nothing  Then
        MessageBox.Show("此客户今天订单已录入,请查询客户姓名并加录订单!")
        e.Cancel = True
    End If
End If
end Select
 回到顶部
帅哥哟，离线，有人找我吗？
jxjzj2000
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：142 积分：1031 威望：0 精华：0 注册：2011/8/14 1:57:00 		  发帖心情 Post By：2011/8/31 8:49:00 [只看该作者]

以下是引用blackzhu在2011-8-31 7:41:00的发言：
DataColChanged事件
dim dr as datarow
Select Case e.DataCol.Name
 case "姓名","发货日期"
    dr = e.DataTable.Find("姓名 = '" & e.NewValue & "'And 发货日期 =#" & e.newvalue &"#")
    If dr IsNot Nothing  Then
        MessageBox.Show("此客户今天订单已录入,请查询客户姓名并加录订单!")
        e.Cancel = True
    End If
End If
end Select

这个代码运行错误


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 回到顶部
总数 17 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.04297 秒, 4 次数据查询