Foxtable(狐表)用户栏目专家坐堂 → 不知道怎么说,帮忙看看出了什么问题,看附件


  共有9725人关注过本帖树形打印复制链接

主题:不知道怎么说,帮忙看看出了什么问题,看附件

帅哥哟,离线,有人找我吗?
ramen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:135 积分:946 威望:0 精华:0 注册:2012/8/26 23:34:00
不知道怎么说,帮忙看看出了什么问题,看附件  发帖心情 Post By:2012/12/2 21:50:00 [只看该作者]

上传一个例子,不知道怎么说,在窗口里面,在婚假开始和结束那里选择一段日期,点确定,婚假明细就对应有连续的日期。然后点婚假文本框或者其他文本框,婚假明细那里的值就消失了,不知道什么回事?不知
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:婚假自动统计.table

道是不是代码错了,还是怎么样?麻烦高手看看,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
szp2012
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:202 积分:1683 威望:0 精华:0 注册:2011/6/17 16:07:00
  发帖心情 Post By:2012/12/2 22:16:00 [只看该作者]

 窗体设计状态下: 文本框 属性 只读 设为 true , 或 false

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2012/12/2 22:21:00 [只看该作者]

没发现问题啊。

是不是你点击另一行了?

你窗口的文本框是绑定表中的,如果点击另一行了,文本框的值肯定会没有的。

 

你为何不直接用表事件呢?

 

如:

 

Select Case e.DataCol.name
    Case "婚假_开始","婚假_结束"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("婚假_开始") = False And dr.IsNull("婚假_结束") = False
            dr("婚假") = DateDiff("d",dr("婚假_开始"),dr("婚假_结束"))
            Dim s As String
            For i As Integer = 0 To dr("婚假")
                s = s & "," & Format(dr("婚假_开始").AddDays(i),"MM.dd")
            Next
            dr("婚假明细") = s.Trim(",")
        Else
            dr("婚假") = Nothing
            dr("婚假明细") = Nothing
        End If
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
ramen
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:135 积分:946 威望:0 精华:0 注册:2012/8/26 23:34:00
  发帖心情 Post By:2012/12/3 14:56:00 [只看该作者]

可以实现了,谢谢你!


 回到顶部