主题：[急]系统崩溃

项目已经发您邮箱了！

数据已上传，请老师帮我看下！

不好意思，刚刚忘了一起压缩进来，麻烦老师了！

谢谢大红袍老师，本来是想重置“具体位置”的就给写进来，没想到。。。

大红袍老师，在“合同管理”表中写到，判断当前月和收费方式之后，在“本月开piao”中对应生成本月应该开piao的出租单位。我现在想再加一个判断条件，是合同状态为“生效”的情况下才生成，但是我加了一个if判断语句还是不能生效啊！

原来的代码如下：

'判断本月的月份,计算房租
Dim dt1 As DataTable = DataTables("合同管理")
Dim dt2 As DataTable = DataTables("本期开piao")

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

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