主题：没有日期的几行怎么处理

前几天这个代码还可以，今天我测试又不行了，TIANTIAN帮我看下这段代码：

If e.DataCol.Name = "客户信息" Then

    Dim dr As DataRow

    dr = DataTables("客户数据").Find("综合信息 = '" & e.DataRow("客户信息") & "'" )

    If dr IsNot Nothing '如果找到, 则设置各列内容

        e.DataRow("日期排序") = "1"

        e.DataRow("新老客户") = "客户改"

        e.DataRow("时间")= dr("时间")

        e.DataRow("支付方式")= dr("支付方式")

        e.DataRow("备注")= dr("备注")

        e.DataRow("签约终止日") = dr("签约终止日")

        e.DataRow("单价") = dr("单价")

    End If

End If

当找到这个客户时，日期排序自动设置为1，前几天还行，今天用，他会自动设置为0了。不知道怎么搞的