以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  如何实现根据字段顺序不同 判断字段值不为空 然后对应修改窗体中的对应按钮控件名称的图片呢？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159077)

--  作者：李孝春 --  发布时间：2020/12/13 0:29:00 --  如何实现根据字段顺序不同 判断字段值不为空 然后对应修改窗体中的对应按钮控件名称的图片呢？ 如何实现根据字段顺序不同 判断字段值不为空 然后对应修改窗体中的对应按钮控件名称的图片呢？（代码如何修正呢？） 【注意下列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编辑过]

--  作者：有点蓝 --  发布时间：2020/12/13 20:23:00 --   If ab IsNot Nothing Then     For ii As Integer = 0 To zdz.Length-1         If ab.isnull(zdz(ii)) = false Then             Forms("发展流程").Controls(sre(ii)).Image = zhuangtai1         End If     Next End If