关于代码简化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "工程代号"
    Dim dr As DataRow
    Dim Filter As String
    dr = DataTables("委托台账").Find( "工程代号 = '" & e.DataRow("工程代号") & "'")
    If dr IsNot Nothing Then
        For Each dc As DataCol In e.DataTable.datacols
            If dc.name <> "编号" Then
                e.DataRow(dc.name) = dr(dc.name)
            End If
        Next
    Else
        For Each dc As DataCol In e.DataTable.datacols
            If dc.name <> "编号" Then
                e.DataRow(dc.name) = Nothing
            end if
        next
    End If
End If

主题：关于代码简化