[求助]如何让Dialog对话框选择“是”执行后边代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何让Dialog对话框选择“是”执行后边代码

共有7070人关注过本帖树形打印复制链接主题：[求助]如何让Dialog对话框选择“是”执行后边代码

洮沙

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：7217 威望：0 精华：0 注册：2017/8/31 12:07:00

[求助]如何让Dialog对话框选择“是”执行后边代码 发帖心情

Post By：2022/9/28 22:40:00 [显示全部帖子]

老师，参考http://www.foxtable.com/mobilehelp/topics/0101.htm制作的页面

Dim res As String = "客户名称：" & kh & "<p/>客户类型：" & khlx]

e.WriteString("QR" & res) '返回确认

Return ""

麻烦问一下，如何做到点击下图“是”服务器继续执行以后代码：

此主题相关图片如下：微信截图_20220928223301.png

也就是，有选择执行：

With wb.AddDialog("", "dlg1", "再次确认", "") '登记失败提示框

.AddButton("btnOK", "是").Kind = 1 '代码怎么设置

.AddButton("btnOK", "否")

End With

js代码：

function myfunction(){

var result = submitAjaxForm('form1','',false);

if (result.substring(0,2) =='OK') {

{showDialog('dlg2','提示',result.substring(2))}

}

else if (result.substring(0,2) =='QR')

{

{showDialog('dlg1','再次确认',result.substring(2))}

}

else {showDialog('dlg2','错误',result)}

}

[此贴子已经被作者于2022/9/29 5:57:17编辑过]

洮沙

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：7217 威望：0 精华：0 注册：2017/8/31 12:07:00

Post By：2022/9/29 9:18:00 [显示全部帖子]

谢谢，蓝老师，有其他办法实现FT中以下效果了吗？

Dim Result As DialogResult

Result = MessageBox.Show("确定要删除此客户吗?删除后不可恢复!", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)

If Result = DialogResult.Yes Then

.Current.Delete

.Save()

Else

End If

洮沙

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：7217 威望：0 精华：0 注册：2017/8/31 12:07:00

Post By：2022/9/29 9:27:00 [显示全部帖子]

老师，我是参照http://www.foxtable.com/mobilehelp/topics/0101.htm这页面做的，也是单独一页判断的，计划正式保存前有个确认选择判断。

[此贴子已经被作者于2022/9/29 9:28:46编辑过]

下一主题 >> << 上一主题

主题：[求助]如何让Dialog对话框选择“是”执行后边代码