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