主题：保存到手机通讯录

     .Head.AddRow(nms)
    Dim cnt As Integer
    For Each r As DataRow In DataTables("客户_终端用户").sql Se lect("楼盘 like '珠江颐德%'")
        cnt = cnt + 1
        With .Body.AddRow(cnt,r("用户姓名"),r("单元房号"),"<a href='tel:" & r("用户手机") & "' >"  & "拨号联系</a>","<a href='sms:" & r("用户手机") & "' >"  & "发短信</a>" )
            
        End With
        
上面的代码可以拨打电话和发送短信，希望可以把存到手机通讯录内。请教老师

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

点击浏览该文件:手机通讯录.foxdb