主题：如何编码隐藏列？

请问这个窗口的代码如何设置?

此主题相关图片如下：窗口设计.jpg

你完全可以做出来，不就是列出所有的列名，不要隐藏的打勾而已吗？

问题:

  1:单击窗口1的Button2(取消)按钮时撤消打开窗口1之后的所有操作(如在打开窗口1以后,在"显示"列的第一行、第二行、第三行打勾，希望单击按钮时撤消刚才对上面三行的操作)

  2:单击窗口1的Button1(确定)按钮时,隐藏“货品资料”表的列名与“列设置”表的“显示”列的值为False对应的“列名”，值为true的显示。(即隐藏没打勾的列，打勾的显示)

 

请问如何设置？

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

你把一个简单的问题，最大程度地复杂化了：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.rar

 

建议系统性地补习两遍帮助。

对设计软件的见解：构思－编程－测试

由于帮助篇幅较长，学习时间较长，这期间一些问题还要狐爸帮助解决。

 

上面的提问只是窗口构成的一小部分，实际的效果：

 

 

 

此主题相关图片如下：设置.jpg

 

请问能按照原来的问题设置吗？

完全可以的，你先尝试一下吧。

 

在命令窗口执行列名填充:

DataTables("列设置").DataRows.Clear()
For Each dc As DataCol In DataTables("货品资料").DataCols
    Dim dr As DataRow = DataTables("列设置").AddNew()
    dr("列名") = dc.name
Next

 

隐藏列：“确定”按钮

For Each dr As DataRow In DataTables("列设置").DataRows
Dim zd As New Dictionary(Of Boolean, String)
zd.Add(dr("显示"),dr("列名"))
If zd.ContainsKey("True") Then
For Each k As Boolean In zd.Keys '显示所有键及其对应的值
Tables("货品资料").Cols(zd(k)).Visible = True
Next
End If
If zd.ContainsKey("False") Then
For Each k As Boolean In zd.Keys '显示所有键及其对应的值
Tables("货品资料").Cols(zd(k)).Visible = False
Next
End If
Next

 

下面这个问题请帮忙解决：

1:单击窗口1的Button2(取消)按钮时撤消打开窗口1之后的所有操作(如在打开窗口1以后,在"显示"列的第一行、第二行、第三行打勾，希望单击按钮时撤消刚才对上面三行的操作)

单击窗口1的Button2(取消)按钮时，当前表的内容恢复到未保存或未打开该表时的原来内容，请问如何设置？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.rar

'窗口事件Click
Forms("窗口1").Close()

点击按钮以后,将取消本次改动并关闭窗口１。

 

如果希望取消本次改动而不关闭窗口１，请问如何设置？（不需要重复打开窗口操作,Syscmd.Edit.Undo()'只能撤消上一步操作）