- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码：怎么获取一个表中任意一个格子的内容呢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110225)
-- 发布时间：2017/11/29 11:42:00
-- 代码：怎么获取一个表中任意一个格子的内容呢
代码：怎么获取一个表中任意一个格子的内容呢
-- 发布时间：2017/11/29 11:45:00
--
参考
Dim str = Tables("表A")(1,2) \'第二行、第三列
msgbox(str)
-- 发布时间：2017/11/29 11:56:00
--
我做了一个查找功能，就是想在表中查找任意一个值，“msgbox(nm)”这里是弹出“类型” 的，不对呀，上面一行代码应该怎么改呢
此主题相关图片如下：qq截图20171129115542.png
-- 发布时间：2017/11/29 12:12:00
--
Dim Val As String = "8888" \'RibbonTabs("功能区1").Groups("功能组1").Items("工具栏1").Items("StringToFind").Text
Dim flag As Boolean = False
With CurrentTable
For i As Integer = .RowSel To .Rows.count-1
For j As Integer = 0 To .Cols.count-1
If i = .RowSel AndAlso j > .ColSel OrElse i > .RowSel Then
If .rows(i)(j) = val Then
.Select(i, j)
flag = True
Exit For
End If
End If
Next
If flag = True Then Exit For
Next
if flag = false then
msgbox("查找结束")
end if
End With
-- 发布时间：2017/11/29 13:17:00
--
哇，好多 呀
-- 发布时间：2017/11/30 16:52:00
--
你好，这个（2.9）里面的数字可以用行或列代替不，就是不固定是哪个单元格
-- 发布时间：2017/11/30 17:14:00
--
4楼就是这种用法，哪来的2和9
-- 发布时间：2017/11/30 17:16:00
--
我不是全懂这个。。
-- 发布时间：2017/11/30 17:52:00
--
Dim Val As String = RibbonTabs("功能区1").Groups("功能组1").Items("工具栏1").Items("StringToFind").Text
改为你自己菜单文本框