If e.DataCol.Name = "学号" Then
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow = e.DataRow
cmd.C
cmd.CommandText = "SELECT * From {Xstudent} Where [Sid]= '" & dr("学号") & " '"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
dr("姓名") = dt.DataRows(0)("StudentName")
Else
dr("姓名") = Nothing
End If
End If