主题：代码

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "方式_外协_机加工","方式_外协_下料机加工","方式_自制_机加工","方式_自制_下料机加工","方式_内协_机加工","方式_内协_下料机加工"
        If dr.IsNull("方式_外协_机加工") AndAlso dr.IsNull("方式_外协_下料机加工") AndAlso dr.IsNull("方式_自制_机加工") AndAlso dr.IsNull("方式_自制_下料机加工") AndAlso dr.IsNull("方式_内协_机加工") AndAlso dr.IsNull("方式_内协_下料机加工") Then
            dr("制单日期") = Nothing
        Else
            dr("制单日期") = Date.Today
        End If
End Select

 

"方式_外协_机加工","方式_外协_下料机加工","方式_自制_机加工","方式_自制_下料机加工","方式_内协_机加工","方式_内协_下料机加工"均为逻辑列

都为空时“制单日期”为空，任意勾选一个则 dr("制单日期") = Date.Today

 

按上面的编码，勾选以后可自动生成“制单日期”，但去除勾选以后，“制单日期”却还显示！

要怎么改，去除勾选后，“制单日期”也去除！

dr.IsNull("方式_外协_机加工")

 

改成

 

dr("方式_外协_机加工") = false

 

 

其余那些，也照着改，即可

Dim dt1 As Date = Date.Today.AddDays(10)
Dim dr1 As DataRow = DataTables("焊工资质清单").Find("实际有效日期 <= #" & dt & "#")
If dr1 IsNot Nothing Then
    MessageBox.Show("焊工证书即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("焊工资质清单").Filter = "实际有效日期 <= #" & dt & "#"
    MainTable = Tables("焊工资质清单")
End If

 

现在的问题：有到期提醒的时候，已设置不可见的用户打开项目时也能看到此表

加上判断即可，如

 

If Tables("焊工资质清单").Visible Then
    Dim dt1 As Date = Date.Today.AddDays(10)
    Dim dr1 As DataRow = DataTables("焊工资质清单").Find("实际有效日期 <= #" & dt & "#")
    If dr1 IsNot Nothing Then
        MessageBox.Show("焊工证书即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Tables("焊工资质清单").Filter = "实际有效日期 <= #" & dt & "#"
        MainTable = Tables("焊工资质清单")
    End If
End If

ok!谢谢！