| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 代码修改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111391) |
| -- 作者：jick0526 -- 发布时间：2017/12/21 1:27:00 -- 代码修改 老师，请问下下面这段代码，如果增加个前提，就是除了表A和表B外,其他的的表都执行下面的代码,代码要怎么修改,谢谢老师! For Each dt As DataTable In DataTables dt.SysStyles("Normal").BackColor = systemColors.GradientInactiveCaption dt.SysStyles("Alternate").BackColor = systemColors.ActiveCaption Next
|
| -- 作者：2900819580 -- 发布时间：2017/12/21 7:54:00 -- For Each dt As DataTable In DataTables
if dt.name <> "表A" orelse dt.name <> "表B" then
dt.SysStyles("Normal").BackColor = systemColors.GradientInactiveCaption
dt.SysStyles("Alternate").BackColor = systemColors.ActiveCaption
end if
Next
|
| -- 作者：有点甜 -- 发布时间：2017/12/21 8:53:00 -- For Each dt As DataTable In DataTables
if dt.name <> "表A" AndAlso dt.name <> "表B" then
dt.SysStyles("Normal").BackColor = systemColors.GradientInactiveCaption
dt.SysStyles("Alternate").BackColor = systemColors.ActiveCaption
end if
Next |