主题：请教

可能改成这样好一点，比如，粘贴剪切时不会出错。

Dim r As row = e.row
if e.col.name = "日期" and r.IsNull("日期") = false then
    r("rq") = Format(r("日期") ,"yyyy-MM")
else
    r("rq") = Nothing
end if

如果仅用于状态栏显示，这个列无需增加的，试试下面的代码放到PositionChanged事件中。
说明，如果用一楼的文件测试，请在表中增加数量列。

Dim r As Row = CurrentTable.Current
Dim Dt,StartDate,EndDate As Date
Dim Sum As Integer
Dt = r("日期")
If r.IsNull("日期") Then
    StatusBar.Message1= ""
Else
    StartDate = New Date(Dt.Year,Dt.Month,1)
    EndDate = New Date(Dt.Year,Dt.Month,Date.DaysInMonth(Dt.Year,Dt.Month))
    Sum = DataTables("表C").Compute("Sum(数量)","[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#")
    StatusBar.Message1= "本月总计数量: " & Sum
End If

这样试试

Dim r As Row = CurrentTable.Current
Dim Dt,StartDate,EndDate As Date
Dim Sum As Double
Dt = r("日期")
If r.IsNull("日期") Then
    StatusBar.Message1= ""
Else
    StartDate = New Date(Dt.Year,Dt.Month,1)
    EndDate = New Date(Dt.Year,Dt.Month,Date.DaysInMonth(Dt.Year,Dt.Month))
    Sum = DataTables("订单").Compute("Sum(数量)","[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#")
    StatusBar.Message1= "本月总计数量: " & Math.Round(Sum,3)
End If