我有个课表，列为“周一34节”，“周二34节”……，每行为教师姓名，还有个“课程主表3”，列名为“课程学期”，“课程时间”，“课程教师”，“课程名称”，每行为单个课程。
当课表的列的某一行的值发生变化的时候，对应的“课程主表3”的“课程名称”列发生改变，并赋值。
但是用下面的代码在表属性的“DataColChanged”里写代码：
Dim cb1 As WinForm.ComboBox = Forms("课程编排").Controls("ComboBox1")
Dim dr1 As DataRow
dr1 = DataTables("课程主表3").SQLFind("[课程教师] = '" & e.DataRow("姓名") & "'And [课程时间] = '" & e.DataCol.name & "'And [课程学期] = '" & cb1.Value & "'")
Select Case e.DataCol.name
Case "周一34节"
If dr1 IsNot Nothing Then
dr1("课程名称") = e.DataRow("周一34节")
'MessageBox.show(dr1("课程教师"))
'MessageBox.show(dr1("课程时间"))
'MessageBox.show(dr1("课程编号"))
'MessageBox.show(e.DataCol.name)
'MessageBox.show(e.NewValue)
'MessageBox.show(e.DataRow("周一34节"))
DataTables("课表").Save()
DataTables("课程主表3").Save()
End If
End Select
发现对应的 课程主表3对应的行的“课程名称”不能被赋值。MessageBox的值都能显示。
请问是什么原因。
[此贴子已经被作者于2020/10/7 15:15:56编辑过]
加好友 
发短信
Post By：2020/10/7 15:10:00 [显示全部帖子]
