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

表a，DataColChanged事件

Select Case e.DataCol.Name

Case "成绩16_1","成绩16_2","成绩16_3"

Dim dr As DataRow = DataTables("表B").Find("学号= '" & e.DataRow("学号") & "'")

If dr Is Nothing Then

dr = DataTables("表B").AddNew

dr("学号") = e.DataRow("学号")

dr("姓名") = e.DataRow("姓名")

End If

dr("成绩1") = e.DataRow("成绩16_1")

dr("成绩2") = e.DataRow("成绩16_2")

dr("成绩3") = e.DataRow("成绩16_3")

End Select

主题：[求助]数据自动录入