主题：【求助】如何填位

 如果要做，写表达式太麻烦，还不如用代码处理，简单方便

 DataColchanged事件

If e.DataCol.Name = "收发日期" Then
    If e.NewValue = Nothing Then
        e.DataRow("属期") = Nothing
    Else
        e.DataRow("属期") = Format(e.DataRow("收发日期"), "MM")
    End If
End If