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事件的代码,麻烦帮我看看,谢谢!