鼠标双击窗口关闭文字没填充在表格里面去
代码放在表事件（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
加好友 
发短信
Post By：2023/3/27 8:02:00 [显示全部帖子]
