要给记录窗口绑定doubleclick事件

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=62079&skin=0

全局代码，表中的代码，窗口中的代码都复制进去了，发现只是双击不进入编辑状态而已，但双击下的代码没有执行，还是打不开要窗口。

我双击下的代码如下

If e.Col.Name = "现有总库存" Then
        e.Cancel = True
        Forms("金属同族库存详情").Show()
        Forms("金属同族库存详情").Text = e.Row("料号") & "同族库存详情"
        Dim lh As String = e.Row("料号")
        Dim cl As new List(of String)
        Dim zdcl As String
        Do  \'找到金属零件最下层物料料号
            cl = DataTables("BOM及材料库存").SQLGetValues("F257","F252 = \'" & lh & "\' and F128 = \'金属零件\'") \'找出下级物料有几个料号
            If cl.Count = 1 Then  \'金属零件料号赋予到金属成品料号中,准备下一循环
                lh = cl(0)
            Else If cl.Count > 1 Then  \'金属是组合件时直接跳到下一循环
                If Forms("金属同族库存详情").Opened = True Then
                    Forms("金属同族库存详情").Close()
                End If
                Return
            End If
        Loop While cl.Count > 0   \'金属无下级BOM时,说明已得到最下层物料料号
        Dim tzlhs As new List(of String)  \'定义同族料号集合
        tzlhs.Add(lh)   \'最底层金属物料料号加入同族集合
        Dim lstzs As new List(of String)
        lstzs = DataTables("BOM及材料库存").SQLGetValues("F252","F257 = \'" & lh & "\' and F250 = \'金属零件\'")  \'找出上级成品有几个料号
        For Each lstz As String In lstzs  \'上级成品料号加入同族集合
            If tzlhs.Contains(lstz) = False Then
                tzlhs.Add(lstz)
            End If
            Dim dgs As new List(of String)
            Functions.Execute("tzlhcz",dgs,tzlhs,lstz)  \'找出成品料号的上级成品料号加入同族
        Next
        Dim sss As String
        For Each tzlh As String In tzlhs
            sss = "\'" & tzlh & "\'," & sss
        Next
        sss = sss.TrimEnd(",")
        sss = "(" & sss & ")"
        DataTables("金属同族库存详情_Table1").LoadFilter = "F124 In " & sss
        DataTables("金属同族库存详情_Table1").Load
        With Tables("金属同族库存详情_Table1")
            .MergeMode = MergeModeEnum.Standard \'标准合并模式
            .MergeCols.Clear() \'清除原来的合并列
            .MergeCols.Add("产品料号") \'加入要合并的列
            .MergeCols.Add("产品名称")
            .MergeSort = "产品料号" \'设置合并模式下的排序方式
            .AllowMerge = True \'启用合并模式
            .Cols("现有库存").GrandTotal = True \'指定要合计的列
            .GrandTotal = True \'显示合计模式
            .AutoSizeRows
        End With
End If

 如

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:beforedoubleclick事件.table