1.不明白
2.表属性 StartEdit 事件代码,其它的例类推
Dim r As Integer
Dim dr As DataRow
If e.Col.Name = "语文_监考员2" Then
CurrentTable.FindRow("[语文_监考员1] ='& dr(语文_监考员2) & '", CurrentTable.Position + 1, True )
If r >= 0 Then '如果找到的话
CurrentTable.Position = r '定位到找到的行
Messagebox.Show("已有此人!","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If
3.如果各科的时间统计,那就直接将各科改为数值型便可以,为何还要是字符型呢?还有就是你的监考时间是根据哪张表来算?如果只是第一次的表,那上面每人应该只有一次监考时间啊
[此贴子已经被作者于2011-10-6 14:29:20编辑过]