[求助]属于自动输入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.name
    Case "部门名称","职位名称","工号"
        Dim dr As DataRow = DataTables("表B").find("工号='" & e.DataRow("工号") & "'")
        If dr IsNot Nothing Then
            dr("固定补贴") = Nothing
            If e.DataRow("部门名称") = "财务部"
                If e.DataRow("职位名称") = "店长"
                    dr("固定补贴") = 200
                ElseIf e.DataRow("职位名称") = "店助"
                    dr("固定补贴") = 150
                End If
            End If
        End If
End Select

主题：[求助]属于自动输入