如何实现根据字段顺序不同 判断字段值不为空 然后对应修改窗体中的对应按钮控件名称的图片呢?(代码如何修正呢?)
【注意下列zdz sre仅做测试用,实际设计中zdz()不是下列内容,与sre()的值不一样】
有一个数据表【党员信息】 有字段值如下zdz()
有一个窗体【发展流程】有按钮控件名称如下sre()
想实现从党员信息表中查找姓名符合条件的数据行 如果当前行对应的字段值不为空 那么窗体中对应的按钮控件值图片更改为zhuangtai1
如何接收入党申请书 不为空 那么按钮名为接收入党申请书的图片为zhuangtai1
如果开入党申请谈话通知书 不为空 那么"接收入党申请书","审看入党申请书","开入党申请谈话通知书"的按钮图片为zhuangtai1
同时满足当zdz(ii)中的任何一个字段值不为空的时候,对应的sre(i)的按钮图片都为zhuangtai1
代码如下
Dim zdz() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案","明确谈话人和谈话时间","记录谈话情况","党员群团组织推荐","支委会讨论研究","上报备案材料","积极分子上级审查备案并提出意见","积极分子发展对象培训教育考察登记表","入党积极分子通知书","指定培养联系人"}
Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案","明确谈话人和谈话时间","记录谈话情况","党员群团组织推荐","支委会讨论研究","上报备案材料","积极分子上级审查备案并提出意见","积极分子发展对象培训教育考察登记表","入党积极分子通知书","指定培养联系人"}
Dim ab As DataRow
ab=Tables("党员信息").DataTable.Find("姓名='" & vars("姓名") & "'")
If ab IsNot Nothing Then
For ii As Integer = 1 To zdz.Length-1
If ab(zdz(ii)) <> Nothing Then
For i As Integer = 1 To sre.Length-1
Forms("发展流程").Controls(sre(i)).Image = zhuangtai1
Next
End If
Next
End If
[此贴子已经被作者于2020/12/13 14:04:20编辑过]