代码执行后无效果，但也不出错误提示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码执行后没有效果，但也不会出错误提示，这就难办了，不知道哪不对了，求老师指点一下。

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

MessageBox.Show("转换完成")

主题：代码执行后无效果，但也不出错误提示