以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何用关联主表的列值作为select case选项  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23858)

--  作者:zpx_2012
--  发布时间:2012/9/21 22:10:00
--  如何用关联主表的列值作为select case选项

各位老师,

 

如下图

 


图片点击可在新窗口打开查看此主题相关图片如下:360截图20120921-008.jpg
图片点击可在新窗口打开查看

 

在出库明细中点选“产品编码”会弹出一个产品选择窗口,想要在窗口中根据当前明细表的选中行的关联父行中的

“出库类别”的值来做为弹出不同的选择窗口的条件,

Select case   current.getparentrow("出库类别") (用出库类别列的值作为条件)

    case "产品出货"

代码1

   case "生产领料“

代码2

end select

 

红色的部份应该怎么表达,

 

谢谢!


--  作者:lin_hailun
--  发布时间:2012/9/22 10:22:00
--  
 改成

 dim dr as datarow = Tables("出库单.出库明细").current.DataRow.GetParentRow("出库单")

 select case dr("出库类别")

 \'

 end select
[此贴子已经被作者于2012-9-22 10:59:52编辑过]

--  作者:zpx_2012
--  发布时间:2012/9/22 10:45:00
--  

但会提示下述错误


图片点击可在新窗口打开查看此主题相关图片如下:360截图201209221-008.jpg
图片点击可在新窗口打开查看


--  作者:sloyy
--  发布时间:2012/9/22 10:55:00
--  

不用钻牛角尖吧

dim Vcklb as string

Vclb=tables("出库单").current("出库类别")

 

Select case Vcklb

 

case "产品出货"

代码1

   case "生产领料“

代码2

end select


--  作者:zpx_2012
--  发布时间:2012/9/22 12:08:00
--  
谢谢两位,按4楼的方式可以了。有时真的就是转不过弯来。