Select Case e.DataCol.name
Case "送货"
e.DataRow("入库单时间") = Date.Today
e.DataRow("送货年") = e.DataRow("送货单时间").year.ToString().SubString(2,2)
e.DataRow("送货月") = e.DataRow("送货单时间").month
e.DataRow("送货日") = e.DataRow("送货单时间").Date
End Select
加好友 
发短信
Post By：2016/4/13 11:30:00 [显示全部帖子]
