- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- datacolchanged 有时候不起作用怎么办？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=15858)
-- 发布时间：2012/1/14 16:14:00
-- datacolchanged 有时候不起作用怎么办？
如图
此主题相关图片如下：228.jpg
datacolchanged 代码如下：
Select Case e.DataCol.Name
Case "shuliang","danjia"
Dim dr As DataRow=e.DataRow
dr("zonger") =dr("shuliang")*dr("danjia")
dr("fuzhu")=dr("shuliang")*guanxi4/guanxi3
Case "chanpinname","guige","danwei","chanpinid" \'发生变化的列
Dim dr As DataRow
Dim Filter As String
Filter = "[chanpinid] = \'" & e.DataRow("chanpinid") & "\' And [kehuid] = \'" & e.DataRow("kehuid") & "\'
and [danjia]> 0"
dr = DataTables("chuhuo").Find(Filter,"chuhuodate desc") \'
If dr IsNot Nothing Then \'如果找到
\'将找到的内容填入到正在输入的行中.
e.DataRow("danjia") = dr("danjia")
Else
e.DataRow("danjia")=0
End If
End Select
红色的字段表示： 如果 产品名称 或 规格 或 单位 或 产品ID 列 发生变化的时候 就找出最近相同的记录，
如果找到就把单价填入当前行中。
运行界面如下
此主题相关图片如下：229.jpg
很奇怪的问题，第一次录入的时候，他就可以找到价格 并自动填充。如果你修改产品名称的时候不论你怎么改，
价格就是第一次输入的价格，始终不会变。
比如 我现在输入 特级兰双草绳 12CM 单位是 公斤 那么最后一条相同的记录 价格是9.5 他就会找出9.5元 ，
填充到当前行的价格中。 但是如果我第一次输入错误，要改产品名称，改成 黑地膜 80*0.025*10KG 单位是 公斤
按理说 产品名称列已经被改动，触发 datacolchanged 事件，他应该找出相同的记录 单价是 10 进行填充。
可结果是 不论你怎么改，价格就是不变。到底是怎么回事？如何解决呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目14.table |
-- 发布时间：2012/1/14 19:27:00
--
……
Filter = "[chanpinid] = " & e.DataRow("chanpinid") & " And [kehuid] = " & e.DataRow("kehuid") & " and [danjia]> 0"
dr = DataTables("chuhuo").Find(Filter & "and [_Identify] < " & e.DataRow("_Identify"),"chuhuodate desc") \'
……
-- 发布时间：2012/1/15
--
我也遇到类似的问题，更奇怪的是，这个问题在某电脑出现，但在另外一部电脑又可以支持运行，真的很莫名其妙。你不妨抄到另外一部电脑看看？
-- 发布时间：2012/1/15 1:11:00
--
呵呵，楼主的代码能运行是运气，不能运行才正常。
-- 发布时间：2012/1/15 9:18:00
--
好了 谢谢！
-- 发布时间：2012/1/15 9:20:00
--
不过还有一个小问题。如图229，输入客户名称后，光标自动定位到 产品名称 一直无法实现。希望再指点一下。再次感谢！