以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 窗口之前引用错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69874) |
-- 作者:dj68301367 -- 发布时间:2015/6/12 9:47:00 -- 窗口之前引用错误
订单录入_Tab订单_DoubleClick \'messagebox.show(e.Col.name) If e.Col.name="成品单价" Then mbtname=e.Form.Controls("T成品代码").value Forms("产品单价管理").open()
Else Forms("产品查询").open()
Tables("订单录入_Tab订单").Current("成品代码")=mbtname End If
产品查询_But选择_Click
mbtname=Tables("产品查询_Table1").Current("成品代码")
Forms("产品查询").Close
错误如下,代码见上
有关调用实时(JIT)调试而不是此对话框的详细信息, ************** 异常文本 **************
|
-- 作者:大红袍 -- 发布时间:2015/6/12 9:49:00 -- mbtname=e.Form.Controls("T成品代码").value 这样肯定不行,没打开,不可能直接用。要不你把代码写到窗口afterLoad事件去
mbtname=e.Form.Controls("T成品代码").value |
-- 作者:dj68301367 -- 发布时间:2015/6/12 9:59:00 -- 大红袍兄,上面那段没有问题,是后面的那段出问题了。 产品查询窗口可以正常打开,就是在选择产品型号之后的, But选择_Click 事件,产品查询窗口关闭之后 产品录入窗口中|Table中读取mbtname变量时出错。
Forms("产品查询").open()
Tables("订单录入_Tab订单").Current("成品代码")=mbtname End If
产品查询_But选择_Click
mbtname=Tables("产品查询_Table1").Current("成品代码")
Forms("产品查询").Close
|
-- 作者:大红袍 -- 发布时间:2015/6/12 10:11:00 -- 呃,代码没什么问题,加入msgbox弹出mbtname看看
msgbox(mbtname) |
-- 作者:dj68301367 -- 发布时间:2015/6/12 10:51:00 -- 在那里加
|
-- 作者:dj68301367 -- 发布时间:2015/6/12 10:56:00 -- Forms("产品查询").open() msgbox(mbtname) Tables("订单录入_Tab订单").Current("成品代码")=mbtname
End If
产品查询_But选择_Click
mbtname=Tables("产品查询_Table1").Current("成品代码") msgbox(mbtname) Forms("产品查询").Close msgbox(mbtname)
以上三个地方都加了,都能正确显示, 但错误还 出现 |
-- 作者:dj68301367 -- 发布时间:2015/6/12 11:16:00 -- 顶一下, |
-- 作者:大红袍 -- 发布时间:2015/6/12 11:29:00 -- 那弹出什么?上传例子测试。 |
-- 作者:dj68301367 -- 发布时间:2015/6/12 13:44:00 -- 调试出现如图所示。
奇怪的是,出现错误提示后,点继续之后,就可以正常使用了。 |
-- 作者:大红袍 -- 发布时间:2015/6/12 14:07:00 -- 你看看是不是你的datacolchanged事件有问题,你上面的代码,应该是没什么问题的。 |