主题：窗口设计，根据前一控件录入内容自动匹配该项的余额

老师，再请教一个问题：

      我设计了两个表“szyw”和"ysb"，在“szyw”表事件中（DATACOLCHANGED）写入以下代码，可以实现在“szye”的“资金来源”输入相应内容后在自动匹配“ysb”中对应的“当前余额”到“szyw”表的“当前余额”中。

     可把这两个字段移到在szyw表中设计的录入窗口中，却不能实现自动匹配输入。请问老师，窗口中如何根据前一控件“资金来源”的内容，自动匹配相应的“当前余额”，或提示“当前余额”谢谢老师！

'If e.DataCol.Name = "资金来源" Then
    If e.NewValue Is Nothing Then
        e.DataRow("当前余额") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("ysb").Find("[name] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("当前余额") = dr("当前余额")
        End If
    End If
'End If