主题：窗口中的RecordGrid 问题 请教是bug 还是码的问题？

图如下：
此主题相关图片如下：1.png

问题：记录窗口中的币种跟表中的币种不一样

产生过程：打开窗口后正常，在记录窗口中更改数据，通过如下datacolchanged 代码判断后产生如上问题

If e.DataCol.Name = "币种" Or e.DataCol.Name = "预期销售额sj" Then
    If e.DataRow.IsNull("币种") = False And e.DataRow.IsNull("预期销售额sj") = False  Then
        Dim dr As DataRow = DataTables("汇率").find("年 = " & Functions.Execute("服务器时间").year & " and 月份 = " & Functions.Execute("服务器时间").month )
        If dr IsNot Nothing Then
            e.DataRow("预期销售额") = val(e.DataRow("预期销售额sj")) * val(dr(e.DataRow("币种")))
        Else
            MessageBox.Show("没找到本月汇率,请立刻马上必须通知商务人员.否则无法计算预销售额.")
            e.DataRow("预期销售额sj") = 0
            e.DataRow("币种") = ""
            e.DataRow.Load
        End If
    End If
End If

请教原因，谢谢