| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- BeforeConnectOuterDataSource 未执行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175187) |
|
| -- 作者：水墨青花 -- 发布时间：2022/2/23 11:25:00 -- BeforeConnectOuterDataSource 未执行 老师，您好： 我在 BeforeConnectOuterDataSource 中写了如下code: Select Case e.Name Case "质量","记录","项目" If e.User.Type = UserTypeEnum.Developer e.EditConnectionString() End If End Select 但是重新打开软件后，未跳出编辑数据源连接的界面，是还需要在其他地方设置什么吗？ 谢谢！ |
|
| -- 作者：有点蓝 -- 发布时间：2022/2/23 11:29:00 -- msgbox(e.Name) Select Case e.Name Case "质量","记录","项目" msgbox(e.User.Name & "=" & e.User.Type) If e.User.Type = UserTypeEnum.Developer msgbox(1) e.EditConnectionString() msgbox(2) End If End Select
|
|
| -- 作者：水墨青花 -- 发布时间：2022/2/23 12:13:00 -- 只跳出了第一个 msgbox(e.Name)，Select 内的 code 的确是 未执行， 会不会只能用 if else 来判断？
|
|
| -- 作者：水墨青花 -- 发布时间：2022/2/23 12:16:00 -- 试了 If Else ，也不行。
If e.Name = "质量“ Then msgbox(e.User.Name & "=" & e.User.Type) If e.User.Type = UserTypeEnum.Developer msgbox(1) e.EditConnectionString() msgbox(2) End If |
|
| -- 作者：有点蓝 -- 发布时间：2022/2/23 12:27:00 -- msgbox(e.Name)显示的是什么，有"质量","记录","项目"其中一个吗？如果有，不可能不执行的 |
|
| -- 作者：水墨青花 -- 发布时间：2022/2/23 13:53:00 -- msgbox(e.Name) 是执行的，有数据源名称 但是 select case 下面的 msgbox(e.User.Name & "=" & e.User.Type) 等 msgbox 都没有执行。
|
|
| -- 作者：水墨青花 -- 发布时间：2022/2/23 13:55:00 -- 也就是说，只执行了 标黄 的 msgbox(e.Name)，后面的都没有执行。 msgbox(e.Name) If e.Name = "质量" Then msgbox(e.User.Name & "=" & e.User.Type) If e.User.Type = UserTypeEnum.Developer msgbox(1) e.EditConnectionString() msgbox(2) End If End If |
|
| -- 作者：有点蓝 -- 发布时间：2022/2/23 14:13:00 -- 标黄 的 msgbox(e.Name)弹出什么值！！！！ |
|
| -- 作者：水墨青花 -- 发布时间：2022/2/23 14:36:00 -- 都是 每一个数据源的名称 “质量”、“项目”、“记录”等 |
|
| -- 作者：有点蓝 -- 发布时间：2022/2/23 14:51:00 -- 数据源名称应该不对。请测试，然后截图所有的弹出窗口发上来看看 msgbox(e.Name & "=" & (e.Name = "质量")) If e.Name = "质量" Then msgbox(1) msgbox(e.User.Name & "=" & e.User.Type) |