前面判断 执行团队 表中中是否存在 关联编号 如果存在 提示已存在并推出
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
加好友 
发短信
Post By：2018/1/3 13:53:00 [只看该作者]
