'根据缴费编号获取缴费信息
Select Case E.DataCol.Name
Case "缴费编号"
Dim PR As DataRow = DataTables("课程缴费表").Find("缴费编号 = " & e.NewValue)
If pr IsNot Nothing Then
e.DataRow("学号") = pr("学号")
e.DataRow("姓名") = pr("姓名")
e.DataRow("收费名称") = pr("收费名称")
e.DataRow("科目") = pr("科目")
e.DataRow("等级") = pr("等级")
e.DataRow("期限") = pr("期限")
e.DataRow("总周数") = pr("总周数")
e.DataRow("课时数合计") = pr("课时数合计")
End If
End Select
求助 如何使用 select语句 简化 学号,姓名 ......等列的简化输入.
加好友 
发短信
Post By：2020/10/21 13:58:00 [只看该作者]
