xuexizhe 发表于：2009-02-18 18:56:55
请教：我有一个access日程数据库，数据库中有3个表，用户表、行程表、行程明细表，用户表中存储用户明细，行程表存储行程中的种类，这2个表有数据库管理员维护，行程明细表由每个用户录入自己的行程，现在每个用户还没有录入过自己的行程，所以这个表现在是空的，没有记录！
我想让每个用户在录入自己的行程时，动态生成下拉列表下录入日期，要生成从今天到下一个星期5，即包括本周从今天到星期5与下周从星期1到星期5，不能有星期6与星期日，如今天是星期4，则动态列表内容是本周星期5与下周从星期1到星期5，如今天是星期1，则动态列表内容是本周从星期1到星期5与下周从星期1到星期5，每个日期我还要分上下午,每个日期上下午之间用“；”分隔，把它作为日期选择下拉组合框的行来源，应如何写代码？谢谢！
新建一窗体，窗体上添加一下拉框 combo0,行来源类型为 值列表 , FORM的load事件代码如下
Option Compare Database
Option Explicit
Private Sub Form_Load()
Dim i As Integer
Dim dt As Date
dt = Date
For i = 0 To 6 - Weekday(dt)
Me.Combo0.AddItem Format(dt + i, "yyyy-mm-dd") & " AM"
Me.Combo0.AddItem Format(dt + i, "yyyy-mm-dd") & " PM"
Next i
dt = dt + i
For i = 2 To 6
Me.Combo0.AddItem Format(dt + i, "yyyy-mm-dd") & " AM"
Me.Combo0.AddItem Format(dt + i, "yyyy-mm-dd") & " PM"
Next i
End Sub
谢谢！您的回答，请问：添加一下拉框，怎么避免用户，多次选择同一内容录入，如2月am，他输入两行内容，怎么办？可不可以达到打开一个窗体，日期范围字段系统已按顺序给生成不重复的值，不允许用户修改，只让用户输入其他指定字段，如用户输入其他指定字段后，提交修改，则，将全部内容写入源表中，如用户不提交修改，则所有内容都不写入源表中，如何写代码？
总记录：2篇 页次：1/1 9 1 :
