主题：跨表生成对应行

老师，这句Dim filter As String = "收租方式 in ('" & arys(Date.Today.Month-1).replace(",", "','") & "')"    是判断当前收租方式类型的语句，总是出现，不管是在填数据、新增行，或者是打开项目的时候，总是会出现，而且是多次，要点击多次后才可以。

如何优化啊？

老师，现在打开项目的时候，表B 的数据重新计算了一次，被原先修改后的数据替换了。

请问怎么做到，如果表B已经有此行数据，就不要再生成该条数据了？

此主题相关图片如下：微信截图_20160601160013.png

蓝色框框内的是生成的数据，红色框框内是手动输入应缴房租的月份和所属月。

但是5月的这些录完之后，因为“合同号”不为空，6月的时候不会再次没法生成，而我也不想把5月的数据删除。请问，可以根据判断月份不同后再次生成这套一房子6月应缴房租的数据行吗？拜托拜托老师！

大红袍老师，请教下，如果表“本期开piao”在本月生成的数据行里面调用“归档”表里面的数据，怎么写，我现在写的都带不过来。

举个栗子：例如本月生成的是5月的数据行，其中列“前期欠款总额”要去调用“归档”表中改出租单位的列“本期欠款总额”的4月份的数据。

下面是我写的代码，为什么实现不了数据的调用呢？（另外，我不像一个月一个月的写，直接本月的“前期欠费总额”等于上月的“本期欠费总额”）

“本期开piao”表的datacolchanged的代码：

 Case "收租月"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow       
If dr("收租月") = "5月"
            Dim filter As String
            filter = "承租单位 = '" & dr("承租单位") & "' And 具体位置 = '" & dr("具体位置") & "' And 合同号 = '" & dr("合同号") & "' And 所属期 = '4月'"
            pr = DataTables("BQKP归档").Find(filter)
            If pr IsNot Nothing Then
                dr("上期累计欠款") = pr("本期应收合计")
            End If
        End If

表“归档”的datacolchanged:

If e.DataCol.Name = "本期累计欠款"
    Dim Filter As String = "[具体位置] = '" & e.DataRow("具体位置") & "'"
    Dim drs As List(Of DataRow) = DataTables("本期开piao").Select(Filter)
    For Each dr As DataRow In drs
        dr("上期累计欠款") = e.DataRow("本期累计欠款")
    Next
End If

我的实例已经上传了，在1楼，但是那个是比较早的，现在数据库已经发在服务器上了。

前面的代码是按照您的指导写的。

 大红袍老师，发您邮箱了，你看下~