Foxtable(狐表)用户栏目专家坐堂 → 谁能提供一个 关于 整合 推广 的 呢 ?


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

主题:谁能提供一个 关于 整合 推广 的 呢 ?

帅哥哟,离线,有人找我吗?
xxxxxx
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:119 积分:870 威望:0 精华:0 注册:2013/3/14 15:37:00
  发帖心情 Post By:2013/5/14 9:41:00 [只看该作者]

从联系人登记表里面 获取
图片点击可在新窗口打开查看此主题相关图片如下:e0jho~56hy659ltz{)6ca%5.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
xxxxxx
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:119 积分:870 威望:0 精华:0 注册:2013/3/14 15:37:00
  发帖心情 Post By:2013/5/14 9:44:00 [只看该作者]

 通过   QQ/qq群 邮箱 微博 微信 论坛 等方式的接口 来做一个推广整合平台, 把推广的内容和所要推广的那些客户的QQ 邮箱等  记录下来

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/14 10:10:00 [只看该作者]

OK了,只要把需求说清楚了就好办.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:客户管理推广系统.zip


 回到顶部
帅哥哟,离线,有人找我吗?
xxxxxx
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:119 积分:870 威望:0 精华:0 注册:2013/3/14 15:37:00
  发帖心情 Post By:2013/5/14 10:25:00 [只看该作者]

  太感谢了      还有点就是在下面的这代码中 ,这样更改一下呢 ? 就是 必须 也 联系人登记表里的  大分类 小分类和所选择的推广形式 来记录 所分类筛选的 推广记录

 

 

If e.DataCol.name="推广形式" Then
    Dim drList As List(Of DataRow)
    Select Case e.NewValue
        Case "QQ"
            drList = DataTables("联系人登记表").Select("[QQ号] Is Not Null")
        Case "邮箱"
            drList = DataTables("联系人登记表").Select("[邮箱] Is Not Null")
        Case "微信"
            drList = DataTables("联系人登记表").Select("[微信] Is Not Null")
        Case "微博"
            drList = DataTables("联系人登记表").Select("[微博] Is Not Null")
    End Select
    If drList IsNot Nothing Then
        Dim sber As new StringBuilder
        For i As Integer = 0 To drList.Count-1
            If i =0 Then
             sber.Append(drList(i)(IIF(e.NewValue="QQ","QQ号",e.NewValue)))
            Else
                sber.Append(",").Append(drList(i)(IIF(e.NewValue="QQ","QQ号",e.NewValue)))
            End If
        Next
       e.DataRow("推广记录")=sber.ToString()
    End If
End If


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/14 10:35:00 [只看该作者]

是 必须 也 联系人登记表里的 不懂你什么意思?
大分类 小分类和所选择的推广形式 来记录 所分类筛选的 推广记录
加个判断就行了.
If e.DataCol.name="推广形式" Then
    Dim drList As List(Of DataRow)
    Select Case e.NewValue
        Case "QQ"
            drList = DataTables("联系人登记表").Select("[QQ号] Is Not Null and 客户类型='" & e.datarow("大分类") & "' and 行业='" & e.datarow("小分类") & "'")
        Case "邮箱"
            drList = DataTables("联系人登记表").Select("[邮箱] Is Not Null and 客户类型='" & e.datarow("大分类") & "' and 行业='" & e.datarow("小分类") & "'")
        Case "微信"
            drList = DataTables("联系人登记表").Select("[微信] Is Not Null and 客户类型='" & e.datarow("大分类") & "' and 行业='" & e.datarow("小分类") & "'")
        Case "微博"
            drList = DataTables("联系人登记表").Select("[微博] Is Not Null and 客户类型='" & e.datarow("大分类") & "' and 行业='" & e.datarow("小分类") & "'")
    End Select
    If drList IsNot Nothing Then
        Dim sber As new StringBuilder
        For i As Integer = 0 To drList.Count-1
            If i =0 Then
             sber.Append(drList(i)(IIF(e.NewValue="QQ","QQ号",e.NewValue)))
            Else
                sber.Append(",").Append(drList(i)(IIF(e.NewValue="QQ","QQ号",e.NewValue)))
            End If
        Next
       e.DataRow("推广记录")=sber.ToString()
    End If
End If

最好还加一下空值判断否则空值会报错.



 回到顶部
帅哥哟,离线,有人找我吗?
xxxxxx
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:119 积分:870 威望:0 精华:0 注册:2013/3/14 15:37:00
  发帖心情 Post By:2013/5/14 11:34:00 [只看该作者]

嗯,你说的对, 非常感谢你 师傅

 

如果在以上的基础上  来实现 如下图所示 能否实现?  或者通过  API 接口 来 实现  怎么设置呢 ?

 

 


图片点击可在新窗口打开查看此主题相关图片如下:9i`k~}q8$r6(5{)2h8vq93.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:@3dbs55io}hbht{@qnf6p)d.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:m21z{b4yf(a{12o87xc11.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-5-14 11:35:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/14 11:40:00 [只看该作者]

百度有很多教程可以看一下. 新浪微博的API文档也给得很详细的了.
实话说,就你现在的水平要做这些,几乎不可能.

 回到顶部
帅哥哟,离线,有人找我吗?
xxxxxx
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:119 积分:870 威望:0 精华:0 注册:2013/3/14 15:37:00
  发帖心情 Post By:2013/5/14 11:47:00 [只看该作者]

嗯是啊 , 我狐表我也是才接触不久,很多代码我也写不来 哎、、、、、 很多就是仿别人的 或者看视频啊  只能这样

 

 

 

能否指导一下,通过哪种方式来学习写代码 ?或者是学哪种语言来学代码? 

[此贴子已经被作者于2013-5-14 11:58:21编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
xxxxxx
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:119 积分:870 威望:0 精华:0 注册:2013/3/14 15:37:00
  发帖心情 Post By:2013/5/14 12:47:00 [只看该作者]

 还有一点 就是 新增一个   Button  按钮后, 

在 Click   里 写入 什么代码  就自动跳到电脑上安装的软件呢 ? 如  图 QQ 登陆窗口

 
 

图片点击可在新窗口打开查看此主题相关图片如下:x4`l{7t_4m%knldil(z3%3f.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:}t`m1llf(`jcixcp@97l1o.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-5-14 13:07:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
xxxxxx
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:119 积分:870 威望:0 精华:0 注册:2013/3/14 15:37:00
  发帖心情 Post By:2013/5/14 13:15:00 [只看该作者]

实在是不好意思 又麻烦您了  

 

  在以上这段代码上    在保存推广记录的时候 ,能否同时保存这个联系人的名字不呢 ?


 回到顶部
总数 26 上一页 1 2 3 下一页