> With Thisform.grdLookup > .RecordSource = 'ClassLook' > .Width = 735 > .Visible = .T. > .ColumnCount = 8 > .column1.header1.Caption = 'Change' > .column1.ToolTipText = "Acceptible Values are 'C','E', 'F','I','M','S' " > .column1.Width = 50 > .column1.ReadOnly = .F. > .column1.Format = "!" > .column2.header1.Caption = 'Status' > .column2.Width = 75 > .column3.header1.Caption = 'Last Name' > .column3.Width = 150 > .column4.header1.Caption = 'First Name' > .column4.Width = 150 > .column5.header1.Caption = 'Grade' > .column5.Width = 50 > .column5.ReadOnly = .F. > .column6.header1.Caption = 'CSTSID' > .column6.width = 75 > .column7.header1.Caption = 'Paid' > .column7.Width = 50 > .column7.ReadOnly = .F. > .column8.header1.Caption = 'Paid Date' > .column8.Width = 75 > .column8.ReadOnly = .F. > Endwith >>
>mPayDate = Thisform.txtPaidDt.Value > >update ClassLook SET Paid = 'Y', PaidDate = mPayDate >GO top > > With Thisform.grdLookup > .RecordSource = '' > .RecordSource = 'ClassLook' > ENDWITH > >You don't have to reset the RecordSource to show the changes in the cursor. just:
Thisform.grdLookup.Refresh()