Office中国论坛/Access中国论坛

标题: 关于主窗体与子窗体 [打印本页]
作者: cangqiong    时间: 2008-11-24 15:56
标题: 关于主窗体与子窗体
主窗体上有 学号

我想要的是  主窗体输入一个学号 在子窗体上显示 一个学号及12个月

如果主窗体上学号我输入 621001  
则子窗体上会显示
621001   0901   
621001   0902
621001   0903
一直到
621001   0912

这个可以实现吗?
作者: Henry D. Sy    时间: 2008-11-24 16:07
CQ是位老师，为了输入方便。
作者: Henry D. Sy    时间: 2008-11-24 16:35
用ado的addnew+循环
作者: cangqiong    时间: 2008-11-25 08:16
帮个忙..
我不会写..
作者: cangqiong    时间: 2008-11-25 08:17
还有用DAO 可以实现吗?
作者: wang1950317    时间: 2008-11-25 08:30
表2设置不合理，学号设为主键无法重复输入621001
作者: cangqiong    时间: 2008-11-25 08:41
表2 是 学号与月份 为主键

所以有点难!
大家帮帮忙!
作者: Henry D. Sy    时间: 2008-11-25 08:52
  1. Dim rs As New ADODB.Recordset
  2.     Dim intCount As Integer
  3.     Dim ctl As Control
  4.     For Each ctl In Me.Controls
  5.         If ctl.Tag = "a" Then
  6.             If IsNull(ctl) Then
  7.                 MsgBox ctl.Name & "  Not AllowNull"
  8.                 ctl.SetFocus
  9.                 Exit Sub
  10.             End If
  11.         End If
  12.     Next
  13.     rs.Open "表2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  14.     For intCount = 1 To 12
  15.         With rs
  16.             .AddNew
  17.             .Fields("学号") = Me.学号
  18.             .Fields("月份") = Me.年份 & Format(intCount, "00")
  19.             .Update
  20.         End With
  21.     Next
  22.     rs.Close
  23.     Set rs = Nothing
  24.     Me.表2子窗体.Requery
复制代码
原帖由 cangqiong 于 2008-11-25 08:16 发表
帮个忙..
我不会写..
作者: Henry D. Sy    时间: 2008-11-25 09:16
原帖由 cangqiong 于 2008-11-25 08:41 发表
表2 是 学号与月份 为主键

所以有点难!
大家帮帮忙!


你可以照样设你的学号与月份 为主键，不改也没有关系。
作者: cangqiong    时间: 2008-11-25 09:46
用DAO能写吗?
在程序里我引用了一个DAO.
DAO 与 ADO 是不是只能引用一个啊?
作者: Henry D. Sy    时间: 2008-11-25 10:09
都可以引用
作者: cangqiong    时间: 2008-11-25 12:07
不好用啊!
语句能写在附件里吗?
作者: cangqiong    时间: 2008-11-25 15:02
顶一下!
作者: Henry D. Sy    时间: 2008-11-25 15:08
原帖由 cangqiong 于 2008-11-25 12:07 发表
不好用啊!
语句能写在附件里吗?
晕，不是给你附件了吗



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3