[5分]抄袭了煮江品茶前辈的示例用查询作数据源做了窗体,查询有数据,窗体没数据

Option Compare Database
Option Explicit
Private Sub Form_Open(Cancel As Integer)
    '年度、月度、提交审核、关闭单据四个控件的事件已通过SetForm加载
    Call SetForm(Me.Form, Me.frm_销售订单子窗体.Form)
End Sub

Private Sub 新增_Click()
    Dim num As String
   
       
    Me.年度.SetFocus
   
    '保存控件值
    num = BeforeInsertTB(Me.Form, "销售订单")

    '追加tbl单据表
    Call InsertTB("tbltbl单据表", "单据ID", Me.Form, Me.frm_销售订单子窗体.Form)
    DoEvents
    '还原控件值
    Call AfterInsertTB(Me.Form, num)

    '追加采购计划表
    Call InsertTB("tbl销售订单", "销售订单ID", Me.Form, Me.frm_销售订单子窗体.Form)
   
End Sub

Private Sub 修改_Click()
    Dim str As String
   
    Me.年度.SetFocus
   
    '保存控件值

'    str = Me.调整事由.Value
   
   
    '更新tbl单据表
    Call UpdateTB("tbltbl单据表", "单据ID", Me.Form, Me.frm_销售订单子窗体.Form)
    DoEvents
   
    '还原控件值
'    Me.调整事由.Value = str
   
   
    '更新采购计划表
    Call UpdateTB("tbl销售订单", "销售订单ID", Me.Form, Me.frm_销售订单子窗体.Form)
End Sub

Private Sub 删除_Click()
    Dim id As Long
   
    Me.年度.SetFocus
   
    '保存控件值
    id = Me.单据ID.Value
   
    '删除采购计划表
    Call DeleteTB("tbl销售订单", "销售订单ID", Me.Form, Me.frm_销售订单子窗体.Form)
    DoEvents
   
    '还原控件值
    Me.单据ID.Value = id
   
    '删除tbl单据表
    Call DeleteTB("tbltbl单据表", "单据ID", Me.Form, Me.frm_销售订单子窗体.Form)
   
   
End Sub

Private Sub 编辑明细_Click()
    DoCmd.OpenForm "frm_销售订单明细主窗体", , , , , , Me.单据ID.Value
End Sub

Private Sub 单位ID_AfterUpdate()
Me.联系人.Value = Me.单位ID.Column(3)
End Sub