Dim dr As DataRow

dr = DataTables("payInfo").Find("id = \'"& Forms("CC收费系统").controls("idText").Value &"\'","ref desc",1)

If dr IsNot Nothing Then

    If Forms("CC收费系统").Opened Then

        Forms("CC收费系统").controls("pubSchText").Value = dr("pubSch")

        Forms("CC收费系统").controls("gradeText").Value = dr("grade")

        Forms("CC收费系统").controls("emailText").Value = dr("email")

        Forms("CC收费系统").controls("schText").Value = dr("sch")

        Forms("CC收费系统").controls("clasText").Value = dr("clas")

        Forms("CC收费系统").controls("dayClas1Text").Value = dr("dayClas1")

        Forms("CC收费系统").controls("dayClas2Text").Value = dr("dayClas2")

        Forms("CC收费系统").controls("subSchText").Value = dr("subSch")

        Forms("CC收费系统").controls("subClasText").Value = dr("subClas")

        Forms("CC收费系统").controls("daySubClasText").Value = dr("daySubClas")

        Forms("CC收费系统").controls("subSch1Text").Value = dr("subSch1")

        Forms("CC收费系统").controls("subClas1Text").Value = dr("SubClas1")

        Forms("CC收费系统").controls("daySubClas1Text").Value = dr("daySubClas1")

        Forms("CC收费系统").controls("subSch2Text").Value = dr("subSch2")

        Forms("CC收费系统").controls("subClas2Text").Value = dr("subClas2")

        Forms("CC收费系统").controls("daySubClas2Text").Value = dr("daySubClas2")

        Forms("CC收费系统").controls("dateStartTime").Value = dr("dateEndFrGift")

        

    End If

End If

bin，你好，以上是写在“学生编号”textBox控件的Leave事件的代码，麻烦帮我看看，谢谢！