主题：代码转换

 什么意思，是想表中的所有行都填入吗？

 Dim r As Row = Tables("XXX").Current
If r.DataRow.IsNull("资金来源") = False  Then   ' 如果变动的是"资金来源"列值不为空
    If r("资金来源") = "现金"  Then     ' 如果变动的是"资金来源"列值为"现金"
        Dim dr As DataRow = DataTables("现金表").AddNew()  '在现金表中增加一行
        dr("日期") = r("日期")            '现金表日期列值等于当前表的日期值
        dr("收支") ="支"                          '现金表收支列值等于"支"
        dr("分类") ="【其他去向】"                '现金表分类列值等于"【其他去向】"
        dr("收支项目") ="转存"                    '现金表收支项目列值等于"转存"
        dr("摘要说明")="存入" & r("银行")  '在存入银行前加上"存入"二字,此行代码的存入后后可以"&"也可用"+"号"
        dr("金额")= r("存入金额")*-1   '*-1是为了使现金表金额列成为负数..即作为支出
    End If
End If

禁止重复，可以参考

http://www.foxtable.com/help/topics/2481.htm