现在有一段代码,查询用户输入的序号,并定位。代码如下:
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