(Written a few days ago)
Just wrote so much if, God, I have developed like this; but I have no development (in fact, some if I can seem to simplify, this is my deliberate writable)
With VSFlexGrid1 For currentRow = 1 To .Rows - 1 Set rsSign = New Recordset rsSign.Open "Select * from training registration table where the contract number = '" & .TextMatrix (currentRow, 1) & "'", cnSign, adOpenStatic, adLockOptimistic 'Do while not rsSIGN.EOF for i = 1 to 56 Ti = "Lesson" & I' Judging whether it is empty if isnull (rsSIGN.FIELDS (TI) .Value) Then 'empty can write' judgment already This date if presigndate = systemday kilobox has this date WARNING IF MSGBOX (Rssign! Student Chinese Name & "In" & SystemDay & TxtSign (0). TEXT & "record already, continue to enter?", VBOKCANCEL, " Enter a warning ") = vbok kiln 'repeats, but users choose to continue to enter if .TextMatrix (Currentrow, 5) =" -1 "THEN RSSIGN.FIELDS (TI) .Value = systemday &" y "rsSIGN.Update EXIT for 'input has arrived End This cycle else rsSIGN.Fields (TI) .Value = systemday & "n" rsSIGN.UPDATE EXIT for' Enter the end of this loop END IF ELSE EXIT for 'repeating but users choose not Enter, end this loop END IF ELSE '