主题：有关于表自动重置列

if e.DataCol.Name ="下单日期" Then
    if dr.IsNull("下单日期") = false Then
        dr("下单月份") = MonthName(dr("下单日期").Month)
    Else
        dr("下单月份") = Nothing
    End If
End If

当 下单日期 变化时（输入进去），月份才计算。。。
现在我的下单日期并不是输入进去的，是从主表中关联引用过来的。
这样 下单月份 就需要重置才会计算出来，问题是我所有的操作都在窗口中进行。不可能会在表中选中 下单月份列，在单击 重置列 按钮。。。

有没有什么更简单的办法，
1.在项目代码中当打开某表时，重置某列
2.自动重置

此主题相关图片如下：qq截图未命名.png

像上图中。总表与定单明细表关联，我已经把公式（最上面的公式）写入到明细表中的DataColChanged代码中。当我在总表中输入好定单，然后在明细表中增加行时，下单日期会自动关联，可是，月份 不自动计算。需要选择明细表中的下单日期列后，点击菜单中的重置按钮，才会有月份产生。

有没有什么办法让它自动重置。。。

DataTables("表名").DataCols("下单日期").RaiseDataColChanged()