以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不知道怎么说,帮忙看看出了什么问题,看附件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26392)

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

道是不是代码错了,还是怎么样?麻烦高手看看,谢谢!
--  作者:szp2012
--  发布时间:2012/12/2 22:16:00
--  
 窗体设计状态下: 文本框 属性 只读 设为 true , 或 false
--  作者:czy
--  发布时间: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
--  发布时间:2012/12/3 14:56:00
--  
可以实现了,谢谢你!