关于窗体与子窗体的问题

一点通

1.将焦点句子写到最后

If Me![Text0] <> "" Then
    rs.AddNew
    rs("日期") = Me![Text0]
    rs("工号") = Me![Text2]
    rs("组别") = Me![Text1]
    rs("姓名") = Me![Text3]
    rs("号数") = Me![Text4]
    rs("级别") = Me![Text6]
    rs("面数&厚薄") = Me![Text10]
    rs("板号") = Me![Text11]
    rs("中数") = Me![Text12]
    rs("颜色") = Me![Text8]
    rs("数量") = Me![Text13]
    rs.Update
   
    MsgBox "添加成功", vbExclamation, "提示"
   
    Me![Text9] = ""
    Me![Text10] = ""
    Me![Text11] = ""
    Me![Text12] = ""
    Me![Text13] = ""
   
    Me.发钻子窗体.Requery
    Set rs = Nothing
Else
    MsgBox "日期不能为空", vbExclamation, "提示"
End If

    Me![Text1].SetFocus


2.将子窗体的数据源中的ID设为降序,

mzjlgjf

请问还有就是我设了一打开这个窗口就指向最后一条记录，但我按保存后，我点子窗体的任一个地方它都会自动跑回第一条记录了，这个怎么解决呢？

一点通

不是说了吗？设为降序是最好的办法,数据越多,可视性越强,因为最新的数据都在上面

mzjlgjf

哦，我试试哈，谢谢

mzjlgjf

可我设置子窗体为降序了，但不知道为什么，我打开程序后子窗体那显示的还是升序，为什么？

一点通

将窗体加载事件中的

Set Me.发钻子窗体.Form.Recordset = Me.Recordset

删除

另:不知你在窗体加载事件写这么多代码有什么用