- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动添加输入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62678)
-- 发布时间：2015/1/6 9:51:00
-- 自动添加输入
我希望在填写顾客称呼的内容时 是从 【客户资源表】 获取 如果没有是新的客户 我就手工输入 【客户资源表】就会将我手工输入的 客户称呼
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:客户创建.foxdb |
【客户资源表】 求助怎样实现
-- 发布时间：2015/1/6 9:53:00
--
你等级这么大了，连这个最基本的还不会？
http://www.foxtable.com/help/topics/1459.htm
-- 发布时间：2015/1/6 9:56:00
--
DataColChanged事件
If e.DataCol.name="顾客称呼" AndAlso e.DataRow.IsNull("顾客称呼")=False Then
Dim dr As DataRow = DataTables("客户资源").Find("顾客称呼=\'" & e.NewValue & "\'")
If dr Is Nothing Then
dr = DataTables("客户资源").AddNew
dr("顾客称呼")=e.NewValue
End If
End If
-- 发布时间：2015/1/6 9:59:00
--
DataCochanged事件
If e.DataCol.Name = "顾客称呼" AndAlso e.NewValue <> Nothing Then
Dim fdr As DataRow = DataTables("客户资源").Find("顾客称呼 = \'" & e.NewValue & "\'")
If fdr Is Nothing Then
fdr = DataTables("客户资源").AddNew
fdr("顾客称呼") = e.DataRow("顾客称呼")
End If
End If
-- 发布时间：2015/1/6 10:09:00
--
