Un type variante de définition de variable
Cela signifie : j'ai défini cette variable maintenant, mais je ne le fais pas. Déterminez quel type lui sera attribué pour les opérations futures, empruntez donc d'abord temporairement un emplacement (espace) de la mémoire pour placer la variable. Lorsque l'opération réelle sera effectuée dans le futur, le type correspondant sera attribué dynamiquement à la variable comme. nécessaire
La fonction de exit sub est de mettre fin au processus en cours et de ne plus exécuter les procédures suivantes. La signification de
dans ce code est la suivante : s'il est détecté que la zone de texte est vide, le processus suivant ne sera pas exécuté et le curseur sera placé dans le zone de texte du nom d’utilisateur.
L'instruction Call est utilisée pour appeler des fonctions ou des sous-processus.
viewdata provient du nom de la fonction ou du nom du sous-processus.
Trois façons d'appeler une fonction ou un sous-programme :
Écrivez directement le nom de la fonction ou du sous-programme
Appelez en utilisant une variable ; ou affectation d'objet ;
appel avec l'instruction Call
Il s'agit de deux jeux d'enregistrements différents définis. Chaque jeu d'enregistrements a sa propre position de nœud pendant l'exécution du code et n'interfère pas l'un avec l'autre. Cependant, en jugeant le contenu logique d'un ensemble d'enregistrements, l'autre ensemble d'enregistrements peut créer un événement cohérent avec le jugement.
Le code suivant permet de juger si le contenu d'entrée répond aux exigences du code via une boucle d'enregistrements mrcc. S'il répond aux exigences du code, supprimez l'enregistrement mrc précédent et mettez à jour le nouvel enregistrement. Ici, mrcc n'est utilisé que comme base pour juger si le contenu d'entrée est correct ou non, et n'a rien à voir avec mrc. (Merci à Lian Kang pour l'explication, même si la compréhension n'est pas très bonne.)
txtSQL = "select * from class_info"Set mrcc = ExecuteSQL(txtSQL, MsgText) If Not (mrcc.EOF Or mrcc.BOF) Then mrcc.MoveFirst While (mrcc.EOF = False) If (Trim(mrcc.Fields(0)) = Trim(txtClassno.Text) And Trim(mrcc.Fields(1)) = Trim(combograde.Text) And _ Trim(mrcc.Fields(2)) = Trim(txtDirector.Text) And Trim(mrcc.Fields(3)) = Trim(txtClassroom.Text)) Then MsgBox "班号或年级已经存在,请重新输入!", vbOKOnly + vbExclamation, "警告" mrcc.Close txtClassno.Text = "" txtClassno.SetFocus Exit Sub Else '移动到下一条记录 mrcc.MoveNext End If Wend mrc.Delete mrcc.Close mrc.AddNew mrc.Fields(0) = Trim(txtClassno.Text) mrc.Fields(1) = Trim(combograde.Text) mrc.Fields(2) = Trim(txtDirector.Text) mrc.Fields(3) = Trim(txtClassroom.Text) mrc.Update MsgBox "更新数据成功!", vbOKOnly + vbExclamation, "修改班级信息" Else Exit Sub End If
Propriétés du document :
MultiLine - Renvoie ou définit une valeur qui indique si le contrôle TextBox peut accepter et afficher du texte multiligne
Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!