Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不取其他表已经被锁定的行


  共有5770人关注过本帖树形打印复制链接

主题：不取其他表已经被锁定的行
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：378 积分：2724 威望：0 精华：0 注册：2020/7/24 10:30:00 		不取其他表已经被锁定的行  发帖心情 Post By：2022/3/15 14:32:00 [显示全部帖子]

某列用了列表项目，从其他表取值，怎么设置不取其他表已经被锁定的行的值？

 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：378 积分：2724 威望：0 精华：0 注册：2020/7/24 10:30:00 		下面这句我写在DataColChanging 里面好像没效果  发帖心情 Post By：2022/3/15 17:13:00 [显示全部帖子]

下面这句我写在DataColChanging 里面好像没效果


Select Case e.DataCol.name
Case "模块"
Dim mk As String
If e.DataCol.Name= "模块" Then
mk = e.NewValue
Else
mk  = e.DataRow("模块名称")
End If
If mk > "" Then
If e.DataTable.Find("模块= '" & mk & "'") IsNot Nothing AndAlso Tables("模块").Current.DataRow.Locked  = True  Then
MessageBox.Show("模块已被锁定行,无法被评估?","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If
End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：378 积分：2724 威望：0 精华：0 注册：2020/7/24 10:30:00 		写在DataColChanging里面没效果  发帖心情 Post By：2022/3/16 17:26:00 [显示全部帖子]

DataColChanging：


Select Case e.DataCol.name
Case "内控模块"
Dim nkmk As String
If e.DataCol.Name= "内控模块" Then
nkmk = e.NewValue
Else
nkmk  = e.DataRow("内控模块名称")
End If
If nkmk > "" Then
Dim dr As DataRow = e.DataTable.Find("内控模块= '" & nkmk & "'")
If  dr IsNot Nothing AndAlso dr.Locked  = True  Then
MessageBox.Show("模块已被锁定行,无法被评估?","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If
End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：378 积分：2724 威望：0 精华：0 注册：2020/7/24 10:30:00 		无法提示  发帖心情 Post By：2022/3/17 9:46:00 [显示全部帖子]

“内控模块”列属于B表，“内控模块名称”列属于A表，A表存在被锁定的行，B表能找到A表存在被锁定的行，但是选择的时候，无法提示“模块已被锁定行,无法被评估?”。

 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：378 积分：2724 威望：0 精华：0 注册：2020/7/24 10:30:00 		  发帖心情 Post By：2022/3/17 10:07:00 [显示全部帖子]

简单一点的意思就是：A表的列内容来自B表的列，但是B表列存在被锁定的行，A表的列内容取值B表列内容，取值B表被锁定的行的时候提示不能选定。


“内控模块”列属于风险数据库表，“内控模块名称”列属于内控模块表，内控模块表存在被锁定的行，
风险数据库表“内控模块”列取值于内控模块表“内控模块名称”列，但是选择的时候，需要提示“模块已被锁定行,无法被评估?”。

MainTableChanged如果这么写，好像也可以：
If MainTable.Name = "风险数据库" Then 
Tables("风险数据库").Cols("内控模块").Combolist = DataTables("内控模块").GetComboListString("内控模块名称")
End If

但是怎么提示“模块已被锁定行,无法被评估?”
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：378 积分：2724 威望：0 精华：0 注册：2020/7/24 10:30:00 		好的  发帖心情 Post By：2022/3/17 10:34:00 [显示全部帖子]

好的

我选择在MouseEnterCell 做个提示
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询