主题：根据选择内容自动填充

If e.DataCol.Name = "会议名称" Then '如果内容发生变动的是会议名称列

    If e.NewValue Is Nothing Then '如果新值是空白,也就是会议名称列的内容为空

        e.DataRow("参会人员") = Nothing '那么清空此行参会人员列的内容

    Else

        Dim dr As DataRow

        '否则在参会范围表查找同名的产品行,将找到的行赋值给变量dr

        dr=DataTables("参会范围").Find("单位列表 like '*" & e.NewValue & "*'")("参会人员范围")

        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing

            e.DataRow("参会范围") = dr("参会范围")

        End If

    End If

End If