主题：[求助]如何在语句中加入灵活地筛选条件

 是不是这个意思？

http://www.foxtable.com/help/topics/2490.htm

 你的例子发上来，不清楚你的调整表的结构。

 datacolchanged，代码

Select Case e.DataCol.name
    Case "工号"
        Dim dr As DataRow = DataTables("总库").Find("工号 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("总库").AddNew()
            dr("工号") = e.DataRow("工号")
            dr("姓名") = e.DataRow("姓名")
            dr("部门") = e.DataRow("调后部门")
        Else
            dr("工号") = e.DataRow("工号")
        End If
    Case "姓名"
        Dim dr As DataRow = DataTables("总库").Find("工号 = '" & e.DataRow("工号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
    Case "调后部门"
        Dim dr As DataRow = DataTables("总库").Find("工号 = '" & e.DataRow("工号") & "'")
        If dr IsNot Nothing Then
            dr("部门") = e.DataRow("调后部门")
        End If
End Select