- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 选择表格才能执行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147573)
-- 发布时间：2020/3/19 17:28:00
-- 选择表格才能执行
老师 如果在窗口控件表筛选出后，然后再设计一个按钮，可以是在选中后才能执行姓名的代码吗？
如果只是筛选，没有去点击窗口表控件，可以就执行下面代码吗？
MessageBox.Show("未选择表格行")
Return
MessageBox.Show("未选择表格行")
Return
只有在点击的表格某行后才执行代码，
谢谢老师
-- 发布时间：2020/3/19 17:37:00
--
dim r as row = tables("窗口1_table1").current
if r is nothing then
MessageBox.Show("未选择表格行")
else
执行代码
endif
-- 发布时间：2020/3/20 10:46:00
--
谢谢老师，就是这样的吗？就是点击后才能执行代码，
就是选中后才能执行代码，如果没有选中的那个状态弹出提示窗口
此主题相关图片如下：选中.jpg
此主题相关图片如下：未选中.png
[此贴子已经被作者于2020/3/20 10:47:48编辑过]
-- 发布时间：2020/3/20 11:09:00
--
就是2楼用法，有什么问题？
-- 发布时间：2020/3/20 11:23:00
--
感谢老师， 老师，现在是这样的，就是表格在没有选中，没有点击表格的时候还是会弹出窗口。能在帮忙看看吗？比如筛选后，然后鼠标必须点击某个行才能执行红色代码。感谢 感谢
Dim r As Row = Tables("采订状态窗口_Table2").current
If r Is Nothing Then
MessageBox.Show("未选择表格行")
Else
If forms("客户送货记录窗口").Opened=False Then
forms("客户送货记录窗口").Open
End If
forms("客户送货记录窗口").visible=True
End If
If r Is Nothing Then
MessageBox.Show("未选择表格行")
Else
If forms("客户送货记录窗口").Opened=False Then
forms("客户送货记录窗口").Open
End If
forms("客户送货记录窗口").visible=True
End If
-- 发布时间：2020/3/20 11:46:00
--
肯定已经选中行了。是要选中某一个行，而不是随便选中一行？是要选中没有锁定的行？
Dim r As Row = Tables("采订状态窗口_Table2").current
If r Is Nothing OrElse r.Locked = true Then
MessageBox.Show("未选择表格行")
Else
……
-- 发布时间：2020/3/20 11:53:00
--
对对对，就是这个，我这个语言还是不够专业，感谢老师，谢谢