为关联表设计录入窗口

假定订单(父表)和订单明细表(子表)已经建立关联,这样选择某个订单,关联表(订单.订单明细)即可显示此订单的订单明细。
如果希望在关联表(订单.订单明细)双击某个订单明细,能够显示一个录入窗口,用于编辑此订单明细。
此录入窗口的设计和普通录入窗口的设计基本类似

1、首先设计窗口的时候,各文本框需要绑定到关联表(订单.订单明细)的各列,例如下图将TextBox3绑定到此关联表的数量列:

2、窗口中各按钮的代码也应该有所调整:

按钮标题 Click事件代码
删除行 With Tables("订单.订单明细")
    If
.Current IsNot Nothing Then
        .Current.Delete

    End
If
End
With
锁定行 With Tables("订单.订单明细")
   
If .Current IsNot Nothing Then
        .Current.Locked =
True
    End
If
End
With
取消锁定 With Tables("订单.订单明细")
   
If .Current IsNot Nothing Then
        .Current.Locked =
False
    End
If
End
With
上一行 With Tables("订单.订单明细")
    .Position = .Position -
1
End
With
下一行 With Tables("订单.订单明细")
    .Position = .Position +
1
End
With

3、最后将订单明细表的DoubleClick事件代码设置为:

If e.Table.Name = "订单.订单明细" Then
  
e.Cancel = True '禁止进入编辑状态
   Forms("窗口1").Open()

End
If


本页地址:http://www.foxtable.com/webhelp/topics/2497.htm