主题：【求助】如何填位

有1列是日期（时间日期型），有1列是属期（表达式列，字符型，2位数），表达式为：SubString(Convert([收发日期],'System.String'),6,IIF(SubString(Convert([收发日期],'System.String'),7,1) In ('-','/'),1,2))

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

 

 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

太感谢了！