标题：[求助]错误提示集合已修改

If CurrentTable.DataTable.Name = "报销清单" Then

    If e.Selected Then 

        Dim tbl As Table = Tables("部门筛选三_Table1")

        If tbl.Current IsNot Nothing Then

            e.Form.DropDownBox.Value = tbl.Current("部门名称")

            Tables("报销清单").Current("承担部门编号") = tbl.Current("部门编号")

        End if

        If e.Form.DropTable IsNot Nothing Then 

            e.Form.DropTable.FinishEditing()

        Else 

            e.Form.DropDownBox.WriteValue()

        End If

    End If

End If

 If CurrentTable.DataTable.Name = "预估调整表" Then

    If e.Selected Then 

        Dim tbl As Table = Tables("部门筛选三_Table1")

        If tbl.Current IsNot Nothing Then

            e.Form.DropDownBox.Value = tbl.Current("部门名称")

            Tables("预估调整表").Current("部门编号") = tbl.Current("部门编号")

        End If

        If e.Form.DropTable IsNot Nothing Then 

            e.Form.DropTable.FinishEditing()

        Else 

            e.Form.DropDownBox.WriteValue()

        End If

    End If

End If

If CurrentTable.DataTable.Name = "报销清单" Then

msgbox(e.Selected)

    If e.Selected Then 

        Dim tbl As Table = Tables("部门筛选三_Table1")

msgbox(tbl.Current IsNot Nothing)

        If tbl.Current IsNot Nothing Then

msgbox(tbl.Current("部门名称"))

            e.Form.DropDownBox.Value = tbl.Current("部门名称")