Dim nms As List(of String) = DataTables("应收款").GetUniqueValues("","编号") \'表名称
For Each nm As String In nms
    Dim dr As DataRow = DataTables("应收款").find("编号 = \'"& nm &"\'") \'表名称
    If dr IsNot Nothing Then
        dr("付款状态") = "2"
        dr("兑现日期") = Date.Now
    End If
Next
For i As Integer = 1 To 300
    e.form.setbounds(SysInfo.WorkingAreaWidth-580,SysInfo.WorkingAreaHeight-300+i,580,300)
Next
e.Form.close
MyTimers("计划2").Enabled = True

老师，这是一个到期提醒确认的按钮代码，我按过按钮后兑现日期列的日期全部变成了同一天.我不知道错在哪里了。