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编辑过]