标题：如何编码隐藏列？

1楼

明丰发表于：2011/9/5 23:28:00

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

图片点击可在新窗口打开查看此主题相关图片如下：窗口设计.jpg

2楼

狐狸爸爸 发表于：2011/9/5 23:38:00

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

3楼

明丰发表于：2011/9/6 8:33:00

问题:

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

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

请问如何设置？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

4楼

狐狸爸爸 发表于：2011/9/6 10:11:00

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.rar

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

5楼

明丰发表于：2011/9/6 10:54:00

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

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

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

图片点击可在新窗口打开查看此主题相关图片如下：设置.jpg

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

6楼

狐狸爸爸 发表于：2011/9/6 11:00:00

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

7楼

明丰发表于：2011/9/6 14:11:00

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

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

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

8楼

明丰发表于：2011/9/6 16:15:00

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

9楼

狐狸爸爸 发表于：2011/9/6 16:56:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.rar

10楼

明丰发表于：2011/9/6 21:33:00

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

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

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

共13 条记录, 每页显示 10 条, 页签: [1] [2]