Dim r As e.DataRow = Tables("考勤").Filter = "[部门] = \'安管部"
If r IsNot Nothing Then
    Dim t As e.DataRow = DataTables("秩序员")
    t = r("考勤") = e.form.controls("姓名").text
End If

以上代码是我自己写的，但是没用。请老师修改。

用处：

从 考勤表中筛选部门（安管部），然后在秩序员表【姓名】列，填入【考勤表】删选部门之后的【姓名】。

用ft才一个星期好多代码不熟。。请老师来帮修改一下。

顺便还有第二个问题，有20个表，分为四个类型，每个类型的代码都是一样的，现在4个类型都已经完成了，但是感觉代码太多了，可以直接把这个表的表事件直接一次性复制到其他所有表么。或者类似的办法也可以，现在是只要复制到其他表，就要复制4次。

datacolchanging
datacolchanged
datatowadding
datarowadded

感觉特别麻烦。。

1、

Dim r As e.DataRow = DataTables("考勤")find("[部门] = \'安管部")
If r IsNot Nothing Then
    Tables("秩序员").Current("姓名") = r("姓名")
End If

2、

为什么会有20个表，你的设计思路肯定有问题。