主题：关于设置信用卡还款日

第一个能用，第二个保存代码时出现未知错误

其实我想实现账单日距离目前日期<5时，另外生成一条记录，来提示如果现在用该长卡时，免息期最短的提示，等到免息期数多的时候在用卡的作用，不是提醒客户距离还款日还有多少天的，现在已经实现了生成记录了，不过还有点问题，(1)不应判断免息期字段，应该判断账单日吧?老师您看看修改一下哪里?

 （2）怎样将免息天数为负数的记录置顶呢？

Dim dt_xyk As DataTable = DataTables("信用卡")
Dim dt_lsz As DataTable = DataTables("流水账")
Dim dt_yk As DataTable = DataTables("用卡")
dt_yk .DataRows.Clear
Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
Dim ds() As Date = {d, d.AddMonths(1)}
d = d.AddMonths(-1)
For Each dr As DataRow In dt_xyk.DataRows
    Dim begin As Date
    Dim enddate As Date
    If dr("账单日")+1 <= Date.today.day Then
        begin = d.AddDays(dr("账单日")).AddMonths(1)
        enddate = d.AddDays(dr("账单日")-1).AddMonths(2)
    Else
        begin = d.AddDays(dr("账单日")).AddMonths(0)
        enddate = d.AddDays(dr("账单日")-1).AddMonths(1)
    End If
    Dim dq As Date
    If dr("固定还款日") = False Then
        dq = enddate.AddDays(dr("还款日"))
    Else
        dq = d.AddDays(dr("还款日")-1).AddMonths(2)
    End If
    Dim ndr As DataRow = dt_yk .AddNew
    ndr("卡号") = dr("卡号")
    ndr("账户名称") = dr("账户名称")
    ndr("信用额度") = dr("信用额度")
    ndr("账单日") =dr("账单日")
    ndr("还款日") =dr("还款日")
    ndr("可用额度") = ndr("信用额度") -(dt_lsz.Compute("sum(金额)", "账户名称 = '" & ndr("账户名称") & "' and 类别 = '转出'"))-(dt_lsz.Compute("sum(金额)", "账户名称 = '" & ndr("账户名称") & "' and 类别 = '转入'"))
    ndr("起始记账日") = begin
    ndr("结束记账日") = enddate
    ndr("到期还款日") =dq
    ndr("固定还款日") = dr("固定还款日")
    ndr("剩余免息天数") =(dq - Date.today).TotalDays
 If ndr("剩余免息天数") < = 5 Then
 ndr  = dt_yk .AddNew
    ndr("卡号") = dr("卡号")
    ndr("账户名称") = dr("账户名称")
    ndr("信用额度") = dr("信用额度")
    ndr("账单日") =dr("账单日")
    ndr("还款日") =dr("还款日")
    ndr("可用额度") = ndr("信用额度") -(dt_lsz.Compute("sum(金额)", "账户名称 = '" & ndr("账户名称") & "' and 类别 = '转出'"))-(dt_lsz.Compute("sum(金额)", "账户名称 = '" & ndr("账户名称") & "' and 类别 = '转入'"))
    ndr("起始记账日") = begin
    ndr("结束记账日") = enddate
    ndr("到期还款日") =dq
    ndr("固定还款日") = dr("固定还款日")
ndr("剩余免息天数") = -1*(dq - Date.today).TotalDays
End If
Next