- 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=185938)
-- 发布时间：2023/3/27 8:02:00
-- 窗口表关联
蓝老师早上好：在窗口上做的关联表没有事件设置吗？
-- 发布时间：2023/3/27 8:50:00
--
到裁片明细汇总表的表事件处理
-- 发布时间：2023/3/27 13:59:00
--
鼠标双击窗口关闭文字没填充在表格里面去
代码放在表事件（DoubIeCIick）Dim tbl As Table = Tables("裁片明细汇总")
If tbl.Current IsNot Nothing Then
Tables("物料标识").Current("裁片名称") = tbl.Current("裁片名称")
End If
Forms("裁片选料窗").Close()
第二句代码放在（）KeyDown）事件里面
Dim tbl As Table = Tables("裁片明细汇总")
If e.KeyCode = Keys.Up Then
tbl.Position = tbl.Position - 1
e.Cancel = True
ElseIf e.KeyCode = Keys.Down Then
tbl.Position = tbl.Position + 1
e.Cancel = True
ElseIf e.KeyCode = Keys.Enter Then
If tbl.Current IsNot Nothing Then
Tables("物料标识").Current("裁片名称") = tbl.Current("裁片名称")
End If
e.Cancel = True
e.Form.Close()
End If
-- 发布时间：2023/3/27 14:27:00
--
（DoubIeCIick）事件改为
e.cancel=true
Tables("物料标识").Current("裁片名称") = e.row("裁片名称")
Forms("裁片选料窗").Close()
-- 发布时间：2023/3/27 14:43:00
--
谢谢，可以了