以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于代码执行中取逻辑值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73902)

--  作者:fred
--  发布时间:2015/8/28 19:30:00
--  [求助]关于代码执行中取逻辑值
有一个窗体,窗体中有一个按钮“报送”,有一个字段“已报送”(关联到表的已报送字段)。
目的:当点“报送”按钮后,先弹出警告框“报送后将不得修改,是否报送?”,有确定和取消两个按钮。当点确定时,执行后面代码。当点取消后,跳出不执行。

代码结构是不是如下? XXXXX部分怎么填?同时如何实现他的上级可以将“已报送”值进行更改?

CLICK

Maintable=tables("SelfQuote")
MassageBox.Show(XXXXXX)
Dim SM as XXXXXX
If SM=True Then
    Tables("SelfQuote").Current("")=True
    XXXXXXXX
Else
    XXXXXX
End If

--  作者:y2287958
--  发布时间:2015/8/28 19:44:00
--  
http://www.foxtable.com/help/topics/0326.htm
--  作者:fred
--  发布时间:2015/8/28 20:11:00
--  
谢谢,看来还得一字不落地看《葵花宝典》呀