Case "show4.htm" '客户需求登记显示页面
wb.AddPageTitle("","pageheader3","我的咨询订单","(" & Username & ")")
With wb.AddTable("","Table12")
.BooleanSymbol= "√×"
DataTables("客户需求登记表").Load()
Dim str As DataCol =DataTables("客户需求登记表").dataCols("联系电话")
Dim s As String =str("联系电话")
Dim s1 As String =s.SubString(0,3) '获取前三位
Dim s2 As String =s.SubString(7,4) '获取前四位
s = s1 & **** & s2
.CreateFromDataTable(DataTables("客户需求登记表"),True,"归属合伙人='" & e.Cookies("username") & "'","日期 desc","归属合伙人","日期","客户姓名","联系电话","咨询产品类型","客户来源","最新跟进时间","跟进时间及进度记录","需求是否最终完结")
'退出按登录钮
With wb.AddButtonGroup("","atg5",True)
.Add("add2","退出登录","","exit4.htm")
End With
End With
加好友 
发短信
Post By：2018/4/17 17:46:00 [只看该作者]
此主题相关图片如下：qq截图20180417174820.png
