主题：激活下拉窗口写在AfterOpenProject事件里，只有部分下拉窗口被激活

Tables("证书信息主表").Cols("证书名称").DropForm = "证书名称选择"   '这两个不激活

Tables("证书信息主表").Cols("证书部门").DropForm = "部门选择"       '这两个不激活    

Tables("工程证件使用情况明细表").Cols("证书编号").DropForm = "证书编号选择"

Tables("工程信息表.工程证件使用情况明细表").Cols("证书编号").DropForm = "证书编号选择"

Dim jzsbz As DataTable = DataTables("证书信息主表")

If Relations.Contains("jzsljbz") = False Then '如果还没有创建关联

    Relations.Add("jzsljbz",jzsbz.DataCols("身份证号"),jzsbz.DataCols("身份证号A"),RelationPathEnum.None)

End If

jzsbz.DataCols("B证").Expression = "iif(证书类型='建造师',iif(count(Child(jzsljbz).身份证号A)>0,'有','无'),'')"

If User.Type <> UserTypeEnum.Developer

    TableCaptionVisible = False

End If

Tables("证书信息主表").Cols("证书名称").DropForm = "证书名称选择" 

Tables("证书信息主表").Cols("证书部门").DropForm = "部门选择"