- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65092)
-- 发布时间：2015/3/9 11:54:00
-- [求助]
此主题相关图片如下：按钮实现初始化检查.jpg
如果我希望通过按钮来控制，如何才能实现下面的功能：
在每月开始时，先检查上表的初始化情况，如果已经初始化，则不再执行；如果还没初始化，则执行相应的代码（代码1）之后，再在初始化情况中打钩。
比如现在是3月份，则检查上表发现三月还没初始化，则执行代码1，接着程序自动在对应三月份的初始化情况上打钩。再假设现在是2月份，已经打钩代表已初始化，则不执行任何代码直接退出。
-- 发布时间：2015/3/9 11:56:00
--
for each dr as datarow in datatables("表名").datarows
if dr("初始化情况")=false then
\'执行你的代码
dr("初始化情况")=True \'设置为勾上
else
end if
next
-- 发布时间：2015/3/9 11:59:00
--
Dim fdr As DataRow = DataTables("表A").Find("第一列 = \'" & Date.Today.Month & "\' and 第二列 = False")
If fdr IsNot Nothing Then
msgbox("没初始化")
End If