关于主窗体与子窗体

cangqiong

主窗体上有 学号

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

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

这个可以实现吗?

Henry D. Sy

CQ是位老师，为了输入方便。

Henry D. Sy

用ado的addnew+循环

cangqiong

帮个忙..
我不会写..

cangqiong

还有用DAO 可以实现吗?

wang1950317

表2设置不合理，学号设为主键无法重复输入621001

cangqiong

表2 是 学号与月份 为主键

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

Henry D. Sy

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

原帖由 cangqiong 于 2008-11-25 08:41 发表
表2 是 学号与月份 为主键

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

你可以照样设你的学号与月份 为主键，不改也没有关系。

cangqiong

用DAO能写吗?
在程序里我引用了一个DAO.
DAO 与 ADO 是不是只能引用一个啊?