- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何选中行并高亮 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117149)
-- 发布时间：2018/4/7 21:14:00
-- 如何选中行并高亮
现在有一段代码，查询用户输入的序号，并定位。代码如下：
Dim r As Integer
r = Tables("采购单明细").FindRow("[序号] = \'" & sn & "\'")
If r >= 0 Then \'如果找到的话
MainTable = Tables("采购单明细")
Tables("采购单明细").Position = r \'定位到找到的行.
Tables("采购单明细").Select(r,4)
End If
但是代码执行的效果，指示选中了某一个单元格，并不非常明显，如下图：
此主题相关图片如下：2018-04-07 21_13_15-foxtable - sdhw_bom_manage.table.bmp
如何用代码实现非常明显的选中呢？ 如下图选中整行：
此主题相关图片如下：2018-04-07 21_13_23-foxtable - sdhw_bom_manage.table.bmp
此主题相关图片如下：2018-04-07 21_13_23-foxtable - sdhw_bom_manage.table.bmp-- 发布时间：2018/4/8 9:09:00
--
加上代码
Tables("采购单明细").ListMode = true
http://www.foxtable.com/webhelp/scr/1634.htm