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