以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何编码隐藏列?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12504)

--  作者:明丰
--  发布时间:2011/9/5 23:28:00
--  如何编码隐藏列?

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


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


--  作者:狐狸爸爸
--  发布时间:2011/9/5 23:38:00
--  

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


--  作者:明丰
--  发布时间:2011/9/6 8:33:00
--  

问题:

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

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

 

请问如何设置?

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


--  作者:狐狸爸爸
--  发布时间:2011/9/6 10:11:00
--  

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

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.rar

 

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


--  作者:明丰
--  发布时间:2011/9/6 10:54:00
--  

对设计软件的见解:构思-编程-测试

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

 

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

 

 

 


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

 

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


--  作者:狐狸爸爸
--  发布时间:2011/9/6 11:00:00
--  
完全可以的,你先尝试一下吧。
--  作者:明丰
--  发布时间: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

 

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

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


--  作者:明丰
--  发布时间:2011/9/6 16:15:00
--  
单击窗口1的Button2(取消)按钮时,当前表的内容恢复到未保存或未打开该表时的原来内容,请问如何设置?
--  作者:狐狸爸爸
--  发布时间:2011/9/6 16:56:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.rar


--  作者:明丰
--  发布时间:2011/9/6 21:33:00
--  

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

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

 

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