Select Case e.DataCol.Name
Case "不参评分数","参评分数","条文平均分","居建总分","居建分1","居建分2","居建分3","居建分4","公建总分","公建分1","公建分2","公建分3","公建分4"
Dim pr As DataRow
pr = DataTables("郑州审查表算分").Find("专业分类= '" & e.DataRow("专业分类") & "'")
If pr IsNot Nothing Then
DataTables("郑州审查表算分").DataCols("参评分数").RaiseDataColChanged(pr)
DataTables("郑州审查表算分").DataCols("居建总分").RaiseDataColChanged(pr)
DataTables("郑州审查表算分").DataCols("公建总分").RaiseDataColChanged(pr)
DataTables("郑州审查表算分").DataCols("条文平均分").RaiseDataColChanged(pr)
End If
End Select
这是在(河南地标2015)的表属性(datacolchanged)里面的语句,现在做完语句后,修改(河南地标2015)的数据,("郑州审查表算分")的数据不变了,重置列也不起作用。