以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  存盘后再打开表达式不显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114251)
--  作者：13775189031
--  发布时间：2018/2/1 16:46:00
--  存盘后再打开表达式不显示
由进货数量不为空则自动显示进货日期为今天
显示出来以后存盘，关闭后再打开日期就没了，是怎么回事？
--  作者：有点甜
--  发布时间：2018/2/1 17:16:00
--  

看看是否测此问题

 

http://www.foxtable.com/webhelp/scr/1380.htm

 
--  作者：13775189031
--  发布时间：2018/2/1 17:31:00
--  
用代码算出来的呀！为什么其他的代码算的表达式可以保存啊？晕死！
到货时间可以显示，但是重新打开以后就没了！


Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "到货_第一批到货数量"
        If dr.IsNull("到货_第一批到货数量") Then
            dr("到货_第一批到货时间") = Nothing
        Else
            dr("到货_第一批到货时间") = Date.today
        End If
    Case "到货_第二批到货数量"
        If dr.IsNull("到货_第二批到货数量") Then
            dr("到货_第二批到货时间") = Nothing
        Else
            dr("到货_第二批到货时间") = Date.today
        End If
    Case "到货_第三批到货数量"
        If dr.IsNull("到货_第三批到货数量") Then
            dr("到货_第三批到货时间") = Nothing
        Else
            dr("到货_第三批到货时间") = Date.today
        End If
    Case "到货_第四批到货数量"
        If dr.IsNull("到货_第四批到货数量") Then
            dr("到货_第四批到货时间") = Nothing
        Else
            dr("到货_第四批到货时间") = Date.today
        End If
    Case "到货情况"
        If dr("到货情况") = True Then
            dr.Locked = True
        End If
End Select
--  作者：有点甜
--  发布时间：2018/2/1 17:38:00
--  

 你那些列是表达式列吧？改成数据列

 

http://www.foxtable.com/webhelp/scr/2494.htm

 
--  作者：13775189031
--  发布时间：2018/2/2 14:18:00
--  
嗯！是这个原因！