主题：[求助]代码优化

1、试试 http://www.foxtable.com/webhelp/scr/1273.htm

2、代码不要写到 DataColChanging 事件，单独做一个按钮单独执行试试

1、你事件里面为什么要写那么多代码？写的是同样的重复的代码？具体做个实例发上来测试。

2、直接把代码拷贝出去即可。

1、做一个考核制度表，需要添加数据的时候，从这个表，把数据添加过来

http://www.foxtable.com/webhelp/scr/0680.htm

http://www.foxtable.com/webhelp/scr/1533.htm

2、删除这段代码

Dim t As Table = Tables("责任制明细")
t.Sort = "日期,岗位,考核内容,单位"
If t.Rows.Count > 1 Then
    Dim r As Row = t.Rows(t.Rows.Count - 1)
    For i As Integer = t.Rows.Count - 2 To 0 Step -1
        Dim r1 As Row = t.Rows(i)
        If r("姓名") = r1("姓名") And r("岗位") = r1("岗位") And r("考核内容") = r1("考核内容") And r("日期") = r1("日期") And r("单位") = r1("单位")  Then
            r1.Delete
        Else
            r = r1
        End If
    Next
End If

1、是的。你不需要写那些代码了，直接拷贝6楼，就可以拷贝内容过去了。

2、不需要改日期吧，你只需要修改代码，把日期改成某一个值即可。

3、不需要做成按钮，依然在你datacolchanged事件写代码即可。不同的人员不同的类型，拷贝不同的数据过去。