以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何自动输入星期  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93425)
--  作者：hnoym1
--  发布时间：2016/11/28 18:19:00
--  如何自动输入星期
如何在第一列输如日期后第二列自动填充星期。第一列为日期列，第二列是要表达式列还是日期列？
--  作者：有点色
--  发布时间：2016/11/28 20:08:00
--  

 不能用表达式列。去编写datacolchanged事件

 

If e.DataRow.IsNull("第一列") = false Then
    e.DataRow("第二列") = format(e.DataRow("第一列"), "dddd")
else
    e.DataRow("第二列") = nothing
End If
--  作者：有点蓝
--  发布时间：2016/11/28 20:11:00
--  
字符列，表格DataColChanged事件

If e.DataCol.Name = "日期" Then \'如果改变的是日期
    If e.DataRow.IsNull("日期") Then \'如果日期为空
        e.DataRow("星期") = Nothing \'星期也为空
    Else
        e.DataRow("星期") = e.DataRow("日期").DayOfWeek \'显示星期几
    End If
End If
--  作者：hnoym1
--  发布时间：2016/11/30 12:02:00
--  
谢谢