- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61334)
-- 发布时间：2014/12/11 0:12:00
-- 请教
大师好!
请问:一个项目，希望实现如下功能，该如何实现？
希望第一次打开项目，如果客户按按钮1，就提示首先必须进行一项设置按按钮2，如果没有设置就进行提示，设置完后，以后打开项目按按钮1就不提示，如何搞？
-- 发布时间：2014/12/11 8:03:00
--
用SaveConfigValue来储存是否有按个按钮1
或者存到注册表去
-- 发布时间：2014/12/11 11:01:00
--
谢谢！
那SaveConfigValue初始赋值 ，何时在哪里写代码？发布前用命令窗口，还是如何搞？
-- 发布时间：2014/12/11 11:05:00
--
执行一次SaveConfigValue，然后发布项目
-- 发布时间：2014/12/11 11:09:00
--
我是这样搞的，有无更好的方法？
-- 发布时间：2014/12/11 11:11:00
--
以下是引用hbhb在2014-12-11 11:09:00的发言：
我是这样搞的，有无更好的方法？
我是这样搞的，有无更好的方法？
不需要赋初值，因为没有意义。
取值的时候，如果没有取到，就会用默认值的
-- 发布时间：2014/12/11 11:37:00
--
谢谢！我讲的是，设计时有可能已经赋过初始值了，项目初始化时，可对表数据初始化，对以上的存储值初始化，有无统一的办法进行？
-- 发布时间：2014/12/11 11:39:00
--
木有，发布之前，统一设置一次。
-- 发布时间：2014/12/11 11:53:00
--
再请教，如示例 ，请问如何用代码在表a中找到c、d、e、f都出现的列号？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.zip |
-- 发布时间：2014/12/11 12:00:00
--
Dim dt As DataTable = DataTables("表A")
Dim ary() As String = {"a", "b", "c", "d"}
For Each dc As DataCol In dt.DataCols
Dim vs As object = dt.GetValues(dc.name)
Dim flag As Boolean = True
For Each a As String In ary
If vs.contains(a) = False Then
flag = False
End If
Next
If flag Then
msgbox(dc.name)
End If
Next