以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  新增重复提醒  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112816)
--  作者：yifan3429
--  发布时间：2018/1/3 13:53:00
--  新增重复提醒
前面判断 执行团队 表中中是否存在  关联编号    如果存在  提示已存在并推出
 

Dim Result As DialogResult
Result = MessageBox.Show("您是否确定销售增加团队,是不是?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim str() As String = {"客户姓名","客户经理","总经理","销售总监","客服经理" }
    For i As Integer = 0 To 4
        Dim r As Row = Tables("终端用户.执行团队").AddNew
        r("职称") = str(i)
        r("体系") = "终端用户"
        \'r("计划日期") = Date.Today()
        \'r("执行批次") = e.Form.Controls("TextBox4").Text
        \'r("执行项目") = e.Form.Controls("TextBox5").Text
        \'\'r("备注") = e.Sender.Text
        
         Select Case str(i)
        Case "客户经理"
        r("职务责任") = "客户信息,品牌塑造,商务跟进,客户资料获取,预付意向金,合同签订,回款落实跟踪."     
        
        Case "客服经理"
        r("职务责任") = "配合前段客户经理完成初步意向设计概念,报价方案敲定,深化期,制造期,安装期,售后的全程跟踪落地."
        \'
        \'
        \'Case "深化完成"
        \'\'根据自己的算法实现
        
        End Select
    Next
DataTables("执行团队").Save()
    \'Else
    MessageBox.Show("团队职能添加完成,请添加相关人员.","提示")
End If
--  作者：有点甜
--  发布时间：2018/1/3 14:45:00
--  

根据什么比较重复？比较哪个列？

 

If Tables("执行团队").findrow("某列 = \'" & 某值 & "\'") >= 0 Then

    msgbox("重复")

    return

End If