简化代码求助如何简化一下代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 简化代码求助如何简化一下代码

共有2282人关注过本帖树形打印复制链接主题：简化代码求助如何简化一下代码

夜点蚊香

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：597 积分：4574 威望：0 精华：0 注册：2020/4/15 19:53:00

简化代码求助如何简化一下代码 发帖心情

Post By：2020/10/21 13:58:00 [显示全部帖子]

'根据缴费编号获取缴费信息

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语句简化学号,姓名 ......等列的简化输入.

夜点蚊香

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：597 积分：4574 威望：0 精华：0 注册：2020/4/15 19:53:00

Post By：2020/10/21 14:15:00 [显示全部帖子]

想学习学习,用select 语句简化一下

主题：简化代码求助 如何简化一下代码