继续问《如何将数据库里的多个学生电话显示出来》显示问题

qixiang　发表于：2009-10-27 16:44:23 　

复制

继续问《如何将数据库里的多个学生电话显示出来》显示问题，就是当《学生电话》和《学生电话机型》有内容的文本框加一行空白的文本框就显示出来，其他的不要显示，比如：

学生电话0和学生电话机型0有内容，那么就显示学生电话0，学生电话机型0和学生电话1，学生电话机型1的文本框，

学生电话2，学生电话机型2和学生电话3，学生电话机型3不要显示。类推下去，伸缩自如，不过学生电话0和学生电话机型0

要永久显示。

学生电话0，1，2，3和学生电话机型0，1，2，3都有内容，那么就全部显示。请andymark老师解答

点击下载此附件

Top

andymark 发表于：2009-10-27 17:02:03

不是很明白

请举例说明及贴出你想要的结果

Top

点燃一支烟发表于：2009-10-27 23:17:30

1、把学生电话0，1，2，3和学生电话机型0，1，2，3的可见性全部改为“是”；

2、Private Sub 学生ID_AfterUpdate()
Me.学生电话2.Visible = True
Me.学生电话机型2.Visible = True
Me.学生电话3.Visible = True
Me.学生电话机型3.Visible = True

If DCount("学生ID", "福建电话", "[学生ID]='" & Me.学生ID & "'") = 1 Then
Me.学生电话2.Visible = False
Me.学生电话机型2.Visible = False
Me.学生电话3.Visible = False
Me.学生电话机型3.Visible = False

End If
If DCount("学生ID", "福建电话", "[学生ID]='" & Me.学生ID & "'") = 2 Then

Me.学生电话3.Visible = False
Me.学生电话机型3.Visible = False

End If
Call FillZlxx(Me.学生ID)

End Sub

Top

点燃一支烟发表于：2009-10-27 23:21:45

同时的你的撤销按钮的代码相应要改，这个你就自己去改一下

Top

点燃一支烟发表于：2009-10-27 23:24:18

再则，对于DCount("学生ID", "福建电话", "[学生ID]='" & Me.学生ID & "'") = 0的情况也要考虑，就是如下拉菜单里有MF000009，但表里没有，这种情况你自己去完善一下，只是给你提供思路，呵呵

Top

点燃一支烟发表于：2009-10-27 23:33:50

总之，在按2楼代码改写后，你原来代码有与之不适应的地方相应更改就是，这个你自己去测试检查并完善，呵呵，没去一一考虑了

Top

qixiang 发表于：2009-10-28 12:48:57

我把你的代码改成：

Private Sub 学生ID_AfterUpdate()
Me.学生电话1.Visible = True
Me.学生电话机型1.Visible = True
Me.学生电话2.Visible = True
Me.学生电话机型2.Visible = True
Me.学生电话3.Visible = True
Me.学生电话机型3.Visible = True

If DCount("学生ID", "福建电话", "[学生ID]='" & Me.学生ID & "'") = 0 Then
Me.学生电话1.Visible = False
Me.学生电话机型1.Visible = False
Me.学生电话2.Visible = False
Me.学生电话机型2.Visible = False
Me.学生电话3.Visible = False
Me.学生电话机型3.Visible = False
End If

If DCount("学生ID", "福建电话", "[学生ID]='" & Me.学生ID & "'") = 1 Then
Me.学生电话2.Visible = False
Me.学生电话机型2.Visible = False
Me.学生电话3.Visible = False
Me.学生电话机型3.Visible = False
End If

If DCount("学生ID", "福建电话", "[学生ID]='" & Me.学生ID & "'") = 2 Then
Me.学生电话3.Visible = False
Me.学生电话机型3.Visible = False
End If
Call FillZlxx(Me.学生ID)

End Sub
那样后撤销代码不用改。谢谢老师！！！

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

继续问《如何将数据库里的多个学生电话显示出来》显示问题