If e.DataCol.name = "学生姓名" Then If e.DataRow.isnull("学生姓名") e.DataRow("性别")= Nothing ' ……其它自己补充 e.DataRow("年龄")= Nothing e.DataRow("家长姓名")= Nothing e.DataRow("家庭住址")= Nothing e.DataRow("联系电话")= Nothing Else Dim dr As DataRow = DataTables("学生名单").Find("学生姓名 ='" & e.DataRow("学生姓名") & "'") If dr IsNot Nothing e.DataRow("性别")= dr("性别") ' e.DataRow("年龄")= dr("出生日期") 怎么能直接将出生日期转换成年龄呢? e.DataRow("家长姓名")= dr("家庭成员姓名") e.DataRow("家庭住址")= dr("家庭地址") e.DataRow("联系电话")= dr("联系电话") End If End If End If
|