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

谁能提供一个 关于 整合 推广  的 呢 ？

 

 

或者能否帮忙 把下面这个 帮忙 整合编辑一下呢 ？  谢谢

 

 

 

此主题相关图片如下：yni{y9t69ve2h`ztpdfa.jpg


此主题相关图片如下：(egu4w8vlm8cx$}}k_g7phe.jpg

 

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:客户管理推广系统.rar

就是想通过狐表 来实现一个 比较全面的推广数据库啊，既能调用 表里的联系人  的 QQ 邮箱 微信 微博 短信等方式 直接通过这个平台发送，并且同时也自动记录  历史记录 

   记录 所筛选后的 QQ 邮箱 微信 微博

 

 

算是想要一个多功能推广平台吧。

 

当选择 QQ 记录 所分类的QQ号， 当选择邮箱时 记录 所分类的邮箱 等、、、、、

从联系人登记表里面 获取
此主题相关图片如下：e0jho~56hy659ltz{)6ca%5.jpg

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

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

 

 

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

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

 

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

 

 

此主题相关图片如下：9i`k~}q8$r6(5{)2h8vq93.jpg


此主题相关图片如下：@3dbs55io}hbht{@qnf6p)d.jpg


此主题相关图片如下：m21z{b4yf(a{12o87xc11.jpg

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

 

 

 

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

此主题相关图片如下：x4`l{7t_4m%knldil(z3%3f.jpg


此主题相关图片如下：}t`m1llf(`jcixcp@97l1o.jpg