- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 增加了一行代码，就不能正常运行了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65241)
-- 发布时间：2015/3/12 11:24:00
-- 增加了一行代码，就不能正常运行了
在 datacolchanged 事件中：
If e.DataCol.Name = "客户信息" Then
Dim dr As DataRow
dr = DataTables("客户数据").Find("综合信息 = \'" & e.DataRow("客户信息") & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
e.DataRow("时间")= dr("时间")
e.DataRow("支付方式")= dr("支付方式")
e.DataRow("备注")= dr("备注")
e.DataRow("新老客户")= dr("新老客户") / 这句是我增加的，增加了就不能调用 客户数据 表里面的数据了， 帮我看下哦是不是和上面的代码有冲突？
End If
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
[此贴子已经被作者于2015/3/12 11:25:16编辑过]
-- 发布时间：2015/3/12 11:28:00
--
If e.DataCol.Name = "客户信息" Then
Dim dr As DataRow
dr = DataTables("客户数据").Find("综合信息 = \'" & e.DataRow("客户信息") & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
systemready = False
e.DataRow("时间")= dr("时间")
e.DataRow("支付方式")= dr("支付方式")
e.DataRow("备注")= dr("备注")
e.DataRow("新老客户")= dr("新老客户")
systemready = True
End If
End If
-- 发布时间：2015/3/12 11:30:00
--
哦， from helper :
systemready 暂停执行事件代码 ， ｒｉｇｈｔ？
-- 发布时间：2015/3/12 11:31:00
--
dr = DataTables("客户数据").Find("综合信息 = \'" & e.DataRow("客户信息") & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
SystemReady = False
e.DataRow("新老客户")= dr("新老客户")
SystemReady = True
e.DataRow("时间")= dr("时间")
e.DataRow("支付方式")= dr("支付方式")
e.DataRow("备注")= dr("备注")
End If
-- 发布时间：2015/3/12 11:34:00
--
哦，SystemReady 开关位置不一样，效果就不一样。
我用TIANTIAN 老师的，整行会出现一个样式效果，
用BIN 老师的， 就不会出现样式。 这次我用BIN老师的， 谢谢 ！