以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复选组合框多选内容控制其它控件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132844)

--  作者:沪上游客
--  发布时间:2019/3/31 13:28:00
--  复选组合框多选内容控制其它控件

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190331130033.png
图片点击可在新窗口打开查看

老师您好!如图,我的窗口有个复组合框,名为CheckedComboBox1,如果了选中了一个或多个值,根据值对应的文本框(TextBox)充许编缉录入,反之锁定(显示阴影)不允编缉。
请老师指教一下,谢谢啦!

--  作者:有点甜
--  发布时间:2019/4/1 11:15:00
--  

比如,

 

Dim str As String = e.form.controls("checkedComboBox1").Text

If str.contains("textbox1") then

    e.form.controls("textbox1").enabled = true

Else

    e.form.controls("textbox1").enabled = false

End If

If str.contains("textbox2") then

    e.form.controls("textbox2").enabled = true

Else

    e.form.controls("textbox2").enabled = false

End If


--  作者:沪上游客
--  发布时间:2019/4/1 12:31:00
--  
谢谢老师!
那么锁定的控件设置成灰色,应该怎么设置代码?
谢谢啦!

--  作者:沪上游客
--  发布时间:2019/4/1 12:40:00
--  
老师还有一个问题,怎么把临时表中指定列0值的单元格字体设置为背景色?
谢谢!
[此贴子已经被作者于2019/4/1 12:41:39编辑过]

--  作者:有点甜
--  发布时间:2019/4/1 12:59:00
--  
以下是引用沪上游客在2019/4/1 12:31:00的发言:
谢谢老师!
那么锁定的控件设置成灰色,应该怎么设置代码?
谢谢啦!

 

上面代码就是灰色


--  作者:有点甜
--  发布时间:2019/4/1 13:00:00
--  
以下是引用沪上游客在2019/4/1 12:40:00的发言:
老师还有一个问题,怎么把临时表中指定列0值的单元格字体设置为背景色?
谢谢!
[此贴子已经被作者于2019/4/1 12:41:39编辑过]

 

参考 http://www.foxtable.com/webhelp/scr/0656.htm

 


--  作者:沪上游客
--  发布时间:2019/4/1 13:59:00
--  
老师这段代码有问题,单值也锁定,多值也锁定。

Dim str As String = e.form.controls("checkedComboBox1").Text

If str.contains("textbox1") then

    e.form.controls("textbox1").enabled = true

Else

    e.form.controls("textbox1").enabled = false

End If

If str.contains("textbox2") then

    e.form.controls("textbox2").enabled = true

Else

    e.form.controls("textbox2").enabled = false

End If



--  作者:沪上游客
--  发布时间:2019/4/1 14:14:00
--  
老师临时表怎么设置自定义样式?


--  作者:有点色
--  发布时间:2019/4/1 14:30:00
--  
以下是引用沪上游客在2019/4/1 13:59:00的发言:
老师这段代码有问题,单值也锁定,多值也锁定。

Dim str As String = e.form.controls("checkedComboBox1").Text

If str.contains("textbox1") then

    e.form.controls("textbox1").enabled = true

Else

    e.form.controls("textbox1").enabled = false

End If

If str.contains("textbox2") then

    e.form.controls("textbox2").enabled = true

Else

    e.form.controls("textbox2").enabled = false

End If


 

具体实例发上来测试。

 

 


--  作者:有点色
--  发布时间:2019/4/1 14:31:00
--  
以下是引用沪上游客在2019/4/1 14:14:00的发言:
老师临时表怎么设置自定义样式?

 

参考

 

http://www.foxtable.com/webhelp/scr/2628.htm