下面窗口名：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 '删除行
Next
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编辑过]
加好友 
发短信
Post By：2017/9/23 18:08:00 [只看该作者]
