主题：跨表生成对应行

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

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

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

Dim dt1 As DataTable = DataTables("合同管理")
Dim dt2 As DataTable = DataTables("本期开piao")

Dim arys() As String = {"月收,两月收,季收", "月收", "", "", "月收,年收", "", "", "", "", "", "", ""}
Dim filter As String = "收租方式 in ('" & arys(Date.Today.Month-1).replace(",", "','") & "')"

Dim 月份 As String = Date.Today.Month & "月"
For Each dr As DataRow In dt1.Select(filter)
    Dim ndr As DataRow = dt2.Find("合同号 = '" & dr("合同号") & "' and 月份 = '" & 月份 & "'")
    If ndr Is Nothing Then ndr = dt2.AddNew
    ndr("合同号") = dr("合同号")
    ndr("月份") = 月份
    ndr("收款方式") = dr("收租方式")
Next

大红袍老师，请教下，如果表“本期开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楼，但是那个是比较早的，现在数据库已经发在服务器上了。

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

请上传正确的例子。

获取不到数据，说明你查询的条件有问题啊。

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