主题：难题来了：用If 或 Case 还是其他的，能简化代码吗？

应该能简化，只是像您贴代码，大家不好下手！

水平差就是不行，我这个才是正确的：

Dim r As Row = CurrentTable.Current
Dim Multi As String = "A|B|C|D|E|F"
Dim Values() as String
Values = Multi.split("|")
Forms("窗口").open()
For Index As Integer = 0 To Values.Length - 1
   Forms("窗口").Controls("TextBox" & Values(Index)).Enabled = r(Values(Index))
Next

您舍不得给文件，改为命令窗口无法调试，也就czy总版主这样的高手才行了！