这个DataColChanged事件中的代码,如何改成按钮代码?下面的代码是DataColChanged事件中的代码:
If e.DataCol.Name = "学号"
Then
Dim nms() As String = {"数学客观","英语客观","物理客观","化学客观"}
If e.NewValue Is Nothing Then
For
Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim dr As DataRow
dr = DataTables("客观题").Find("[学号] = '"
& e.NewValue & "'")
If dr IsNot Nothing
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End If
想做成一个按钮。如何改?谢谢老师
[此贴子已经被作者于2019/11/28 10:42:11编辑过]