以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]软件更新版本后，代码执行不了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173561)
--  作者：rophy0952
--  发布时间：2021/12/6 8:50:00
--  [求助]软件更新版本后，代码执行不了

2016的版本，现在升级到2022版。升级后，执行下面的代码没有反应，请问是什么原因呢？

 

With e.Form.Controls("组1")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组2")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组3")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组4")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组5")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With
With e.Form.Controls("组6")
If .FlatStyle = FlatStyle.system Then
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
Else
.FlatStyle = FlatStyle.system
End If
End With


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20211206084310.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2021/12/6 9:06:00
--  
With e.Form.Controls("组1")
.theme = "(none)"
If .FlatStyle = FlatStyle.system Then
--  作者：rophy0952
--  发布时间：2021/12/6 9:45:00
--  
添加了，.theme = "(none)”  也还是不行
--  作者：有点蓝
--  发布时间：2021/12/6 9:55:00
--  
With e.Form.Controls("组1")
.theme = "(none)"
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
End With
--  作者：rophy0952
--  发布时间：2021/12/8 12:10:00
--  

试过上面代码，可以执行代码进行“选择”，但是如果再执行一次进行“取消”就不行了。原来的代码是点一下“选择”，再点一下“取消”
--  作者：有点蓝
--  发布时间：2021/12/8 13:49:00
--  
With e.Form.Controls("组1")
if .theme = "(none)" then
.theme = "Office2013Green"
else
.theme = "(none)"
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Dimgray
    .BorderSize = 0
end if
End With
--  作者：rophy0952
--  发布时间：2021/12/8 19:20:00
--  

谢谢有点蓝老师，现在可以了。但发现更新了系统后有好多地方代码都不通用了，比如：有一个保存按钮，代码是  Tables("原材料进仓新增_原材料进仓明细表盘").current.save  ，也是无法执行，请问都哪些地方改变了呢？
--  作者：有点蓝
--  发布时间：2021/12/9 8:31:00
--  
这个代码我测试没有问题，除非这个表是查询表