主题：[求助]多条件多值填充

 代码应该是没问题的，你重置列不就行了？

 提问的时候，你直接代码报错啊

If e.DataCol.Name = "班" Then '如果内容发生变动的是班列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是班列的内容为空
        e.DataRow("文理") = Nothing '那么清空此行文理列的内容
    Else
        Dim dr As DataRow
        '否则在文理分科表查找同名的班行,将找到的行赋值给变量dr
        dr = DataTables("文理分科").Find("[班] = '" & e.NewValue & "' And [单位] = '" & e.DataRow("单位") & "' And [年级] = '" & e.DataRow("年级") & "'")
        If dr IsNot Nothing Then '如果找到了同名的班行,也就是dr不是Nothing
            e.DataRow("文理") = dr("文理")
        End If
    End If
End If