专家坐堂-模拟点击“开启”后，弹出datatable不存在Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 模拟点击“开启”后，弹出datatable不存在

下面窗口名：httprequest服务，按钮名：Button1

此主题相关图片如下：qq图片2017092318014666.png

打开项目时，窗口自动启动，希望模拟点击“开启”，窗口afteropenproject事件写入如下代码，可以了

forms("httprequest服务").open()

Dim btn As WinForm.Button = Forms("httprequest服务").Controls("Button1")

btn.PerformClick()

上面的问题解决了,下面的问题改动前没有出现过

httprequest事件提示不存在“cookie更新”的datatable，可是这个表是外表数据表，数据库里有这个表的

此主题相关图片如下：qq图片2017092318165999.png

下图是预览外部数据源的图片

此主题相关图片如下：qq图片2017092318171777.png

以下是httprequest代码：若屏蔽cookie更新代码，其他的表，提示会员资料的datatable不存在

Dim drcookies As List(of DataRow)

drcookies = DataTables("cookie更新").SQLSelect("会员编号 = \'" & huiybh & "\'") \'检查是否需要更新会员信息

If drcookies.Count > 0 Then

For Each drcookie As DataRow In drcookies

drcookie.Delete \'删除行

With wb.AddDialog("","dlgg00", "请重新登录更新会员信息","稍后重新登录,请进入会员中心,退出即可!")

.AddButton("btnn00-1","现在重新登录","/exit.htm")

.AddButton("btnn00-2","稍后重新登录")

End With

wb.insertHTML("<script>show(\'dlgg00\')</script>")

e.WriteString(wb.Build) \'生成网页

Return \'必须的

End If

Dim huiyuans As List(of DataRow)

huiyuans = DataTables("会员资料").SQLSelect("会员编号 > \'" & huiybh & "\'") \'检查是否需要更新会员信息

[此贴子已经被作者于2017/9/23 19:15:09编辑过]