谁能提供一个关于整合推广的呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

不是很懂你意思,是这样吗?

下载信息 [文件大小：下载次数： ]
点击浏览该文件:客户管理推广系统.zip

请问你是实现的是什么功能呢? 如果不是2楼我发的这个.

以下是引用xxxxxx在2013-5-13 16:24:00的发言：

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

做技术的懂业务的不多.你要有技术问题,能帮上忙. 业务问题,心有余力不足!

以下是引用xxxxxx在2013-5-14 9:09:00的发言：
当选择 QQ 记录所分类的QQ号，当选择邮箱时记录所分类的邮箱等、、、、、

根据你的图,不明白你的意思.

实在不懂,QQ号从何而来,邮箱地址从何而来. 并没有看到可以获取的地方啊. 那么如何自定输入呢?

OK了,只要把需求说清楚了就好办.

下载信息 [文件大小：下载次数： ]
点击浏览该文件:客户管理推广系统.zip

是必须也联系人登记表里的不懂你什么意思?

大分类小分类和所选择的推广形式来记录所分类筛选的推广记录

加个判断就行了.

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

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

百度有很多教程可以看一下. 新浪微博的API文档也给得很详细的了.

实话说,就你现在的水平要做这些,几乎不可能.

Dim Proc As New Process
Proc.File = "QQ文件地址"
Proc.Start()

使用QQ的URL协议吧.

Dim Proc As New Process

Proc.File = "tencent://Message/?menu=yes&exe=&uin=13231462"

Proc.Start()

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

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