Dim rr As Row '当前选中的行
rr = Tables("星期课程表").Current
Dim bh As String = rr("星期") + " " + rr("时段") + " " + "(" + format(rr("上课时间"),"HH:mm") + "-" + format(rr("下课时间"),"HH:mm") + ")"
kctitle = bh
2,打开窗口控件的时候 点击星期课程表的(当前行) 控件 Label2 可以动态显示 在窗口模式下每次点击当前行 的信息。
下载信息 [文件大小: 下载次数: ]点击浏览该文件:课程显示.foxdb