- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 代码执行后无效果，但也不出错误提示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57197)
-- 发布时间：2014/9/20 14:03:00
-- 代码执行后无效果，但也不出错误提示
代码执行后没有效果，但也不会出错误 提示，这就难办了，不知道哪不对了，求老师指点一下。
With DataTables("原始初级表")
.DataCols("规格").RaiseDataColChanged(.DataRows(0))
End With
If MessageBox.Show("确认要转换规格吗?", "请确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question) =DialogResult.Yes Then
If Tables("原始初级表").Current("规格") = "3克" Then
SystemReady=False
Tables("原始初级表").Current("购进量") = Tables("原始初级表").Current("购进量")/100
SystemReady=True
Else
If Tables("原始初级表").Current("规格") = "3克*10小袋" Then
SystemReady=False
Tables("原始初级表").Current("购进量") = Tables("原始初级表").Current("购进量")/10
SystemReady=True
End If
End If
End If
MessageBox.Show("转换完成")
-- 发布时间：2014/9/20 14:07:00
--
你要实现什么效果?
.DataCols("规格").RaiseDataColChanged(.DataRows(0)) 这里只会触发第一行的DatacolChange哦.
-- 发布时间：2014/9/20 14:11:00
--
我想实现所有为3克的规格，购进量除以100，所有为3克*10小袋的规格，购进量除以10。应该怎么改BIN老师？
-- 发布时间：2014/9/20 14:20:00
--
你这个只是转换当前行啊
你要处理所有请遍历处理
具体想实现什么效果,请说清楚一点,我才可以给你写代码.最好把例子也发上来
-- 发布时间：2014/9/20 14:48:00
--
当规格为3克时，购进量除以100，当规格为3克*10袋时，购进量除以10，请BIN老师指点
-- 发布时间：2014/9/20 14:55:00
--
这是列子
-- 发布时间：2014/9/20 14:55:00
--
附件怎么传不上去呢？
-- 发布时间：2014/9/20 15:02:00
--
传上去了吗
-- 发布时间：2014/9/20 15:12:00
-- [求助]例如图
当规格为3克时，购进量除以100，当规格为3克*10袋时，购进量除以10，请老师指点
此主题相关图片如下：例如.png
-- 发布时间：2014/9/20 15:40:00
--
DatacolChange事件
if e.datacol.name="规格" then
if e.datarow("规格")="3克" then
SystemReady=False
e.datarow("购进量")=e.datarow("购进量")/10
SystemReady=True
end if
end if