以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- e.Sender.Name 跨窗口识别 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175994) |
-- 作者:yifan3429 -- 发布时间:2022/3/26 15:35:00 -- e.Sender.Name 跨窗口识别 A窗口的控件 Select Case e.Sender.Name Case "查询客户"Forms("查询窗口").Open Case "查询进度" Forms("查询窗口").Open 1.根据 A窗口的控件 e.Sender.Name 不同 2.打开 查询窗口 筛选的数据不同 3. 怎么让 查询窗口 识别前面的Sender.Name A 窗口界面如下 [此贴子已经被作者于2022/3/26 15:35:43编辑过]
|
-- 作者:有点蓝 -- 发布时间:2022/3/26 15:48:00 -- 使用全局变量 vars("按钮") = e.Sender.Name Select Case e.Sender.Name Case "查询客户"Forms("查询窗口").Open Case "查询进度" Forms("查询窗口").Open |
-- 作者:yifan3429 -- 发布时间:2022/3/26 16:03:00 -- A vars("按钮") = e.Sender.Name Select Case e.Sender.Name Case "客服备忘" If DataTables.Contains("客户_客服备忘录") = False Then \'如果表C没有加载 DataTables.Load("客户_客服备忘录") \'加载表C? End If Forms("表格窗口").Open Case "财务管理" If DataTables.Contains("订单_财务收支") = False Then \'如果表C没有加载 DataTables.Load("订单_财务收支") \'加载表C End If Forms("表格窗口").Open Case Else MessageBox.Show("一定是还未完善开放该功能!请联系开发者",Vars("昵称")) End Select B Dim e = args(0) For Each c As WinForm.Control In e.Form.Controls e.Form.RemoveControl(c.name) Next \'遍历窗口所有控件 清除后重新加载新的控件 e.Form.StopRedraw() Select Case MainTable.Name Case "订单_客户主表" Select Case e.Sender.Name Case"客服备忘" Dim tbl As Win Form.Table tbl = e.Form.Create SQ LTable("Table1", "Se lect * Fr om {客户_客服备忘录}","2022") tbl.SetBounds(10, 10,e.Form.Width-10 ,e.Form.Height-50) e.Form.AddControl(tbl) tbl.Table.SetColVisib leWidth("订单ID|90|时间|120|地点|120|参与人员|60|沟通内容|200") Funct ions.Exe cute("子窗_窗体设置",e) End Select End Select e.Form.ResumeRedraw() .NET Framework 版本:4.0.30319.42000 Foxtable 版本:2022.1.30.2 错误所在事件:自定义函数,表格初始化设置 详细错误信息: 调用的目标发生了异常。 未找到类型“FormEventArgs”的公共成员“Sender”。 [此贴子已经被作者于2022/3/26 16:26:56编辑过]
|
-- 作者:有点蓝 -- 发布时间:2022/3/26 16:35:00 -- e.Form.StopRedraw() Select Case MainTable.Name Case "订单_客户主表" Select vars("按钮") |
-- 作者:yifan3429 -- 发布时间:2022/3/26 17:15:00 -- ![]() |