有两个表，一个是入库单 一个是入库单明细 表。根据 编号 跨表引用 日期 和月份。代码如下：

If e.DataCol.Name = "编号" Then \'如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
        e.DataRow("日期") = Nothing \'那么清空此行单价列的内容
        e.DataRow("月份") = Nothing
    Else
        Dim dr As DataRow
        \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("入库单").Find("[编号] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("日期") = dr("日期")
            e.DataRow("月份") = Format(e.DataRow("日期"),"yyyyMM")
        End If
    End If
End If

代码的效果如下图所示：

 我想实现这样的效果：日期：2012-06-20 月份：201206.请问如何调整代码实现这样的效果。

可奇怪的是 填充的数据却有问题啊