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. EndwithCursor Update
mPayDate = Thisform.txtPaidDt.Value update ClassLook SET Paid = 'Y', PaidDate = mPayDate GO top With Thisform.grdLookup .RecordSource = '' .RecordSource = 'ClassLook' ENDWITH