以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73456)
--  作者：cqlwsam
--  发布时间：2015/8/19 16:02:00
--  [求助]窗口求助
我想利用逛逛的日历项目中的小日历实现：
在窗口"排班窗口"左边的小日历中实现这样的功能（限当月）：
1. 已完成排班，是一种颜色在相应的单元格中标示（没有实现）；
2.如果没排班，用另外的颜色标示；
3.如果排班未完成，则用另外一种颜色。


现在已经实现部分功能，但出现了只要鼠标移到小日历中的某个单元格，就老闪，有没有折中的方法。

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:54321.table

其中新增的代码如下：

 Dim t As Table = Tables("医生排班表")
            t.Filter="日期=#" & MyDate & "#"
            Dim ys As String = t.DataTable.GetComboListString("医生姓名", t.Filter)
            Dim drs As List (of DataRow) = DataTables("医生名单").Select("医生姓名 not in (\'" & ys.Replace("|", "\',\'") & "\')")
            If drs.count > 0 Then
                e.Graphics.FillRectangle(BJ_排班未完成,单元格)
            Else
                Dim fdr1 As DataRow = DataTables("医生排班表").find("病房夜班 = \'true\'")
                Dim fdr2 As DataRow = DataTables("医生排班表").find("上午 is null or 下午 is null")
                If fdr1 IsNot Nothing AndAlso fdr2 Is Nothing Then
                   e.Graphics.FillRectangle(BJ_排班完成,单元格)
                    MessageBox.Show("排本玩")
                Else
                    e.Graphics.FillRectangle(BJ_排班未完成,单元格)
                End If
[此贴子已经被作者于2015/8/19 16:03:18编辑过]
--  作者：有点蓝
--  发布时间：2015/8/19 16:20:00
--  
Dim t As Table = Tables("医生排班表")
            t.Filter="日期=#" & MyDate & "#"
            Dim ys As String = DataTables("医生排班表").GetComboListString("医生姓名", t.Filter)

改一下

             Dim f As String = "日期=#" & MyDate & "#"
            Dim ys As String = DataTables("医生排班表").GetComboListString("医生姓名", f)
--  作者：大红袍
--  发布时间：2015/8/19 17:09:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73437&skin=0