专家坐堂-关于窗口按钮的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于窗口按钮的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85286)

--  作者：scofields
--  发布时间：2016/5/22 10:56:00
--  关于窗口按钮的问题
红袍老师，这段代码是窗口里“已安排”代码，怎么运行没有效果呢？也不提示错误，看怎么修改呢？
If MessageBox.Show("是否已安排?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
If User.Group = "清新工厂" Then
Tables("船运计划2").Current("用户日志") = User.Name & "已将装船状态调整为"& Tables("船运计划2").current("状态")="已安排" & Date.Now
Tables("船运计划2").current("状态")="已安排"
DataTables("船运计划2").Save()
End If
End If

--  作者：大红袍
--  发布时间：2016/5/22 13:00:00
--
If MessageBox.Show("是否已安排?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
    msgbox(User.Group)
    If User.Group = "清新工厂" Then
        msgbox(3)
        Tables("船运计划2").Current("用户日志") = User.Name & "已将装船状态调整为"& Tables("船运计划2").current("状态")="已安排" & Date.Now
        Tables("船运计划2").current("状态")="已安排"
        DataTables("船运计划2").Save()
    End If
End If