主题：请教

怎样在[日期]列输入完日期后日期（如2008-01-01）后，[rq]列改为2008-01的样式，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:日期.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.table

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

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

谢C版主！我将你6楼的代码放到订单表中，结果不会按日期显示合计，而是按产品显示合计。

可以。是我错了，我在项目的事件中设置了状态栏显示代码，所以将你的代码设置在表中，就没有发挥作用。

再次请教，下面这句好像不显示小数，小数自动五舍六入了，如果要显示小数，该怎样处理，谢谢！
Sum = DataTables("表C").Compute("Sum(数量)","[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#")
    StatusBar.Message1= "本月总计数量: " & Sum

Dim Sum As Integer

改为：

Dim Sum As Double

谢谢贺老师！小数显示是解决，但是有的小数位数太多，我只想显示3位，该如何设置。