以文本方式查看主题

-  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=74762)
--  作者：dj68301367
--  发布时间：2015/9/18 12:33:00
--  关联副本表出问题
窗口表事件

按BOM查找库存_Table1_CurrentChanged

If e.Table.Current IsNot Nothing Then
    Dim dr As DataRow = e.Table.Current.DataRow
msgbox(dr("物料编码"))
    Dim wz As Integer = Tables("BOM").FindRow(dr)
msgbox(wz)
    If wz >=0 Then
        Tables("BOM").Position = wz
    End If

按帮助做的代码。。。。测试时。物料编码可以正常显示。
但WZ的值就等于-1
--  作者：czy
--  发布时间：2015/9/18 13:22:00
--  
表名称不对吧
--  作者：大红袍
--  发布时间：2015/9/19 10:40:00
--  

1、可以这样写

 

Dim wz As Integer = Tables("BOM").FindRow("物料编码 = \'" & dr("物料编码") & "\'")

 

2、如果还不行，就是你BOM表被筛选了，导致查找不到值