| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 怎么判断列名在当前表是存在的？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93970) |
| -- 作者：lk15502 -- 发布时间：2016/12/12 14:18:00 -- 怎么判断列名在当前表是存在的？ 我在菜单上增加了“查找缸号”的按钮，有的表有“缸号”列，有的表没有；没有时会出现运行错误？怎么解决？ Dim a As String = RibbonTabs("系统设置")("数据查询1")("缸号").Text With CurrentTable Dim r As Integer r = .FindRow("[缸号] like \'%" & a & "%\'",.Position + 1, True ) If r >= 0 Then .position = r CurrentTable.Select(CurrentTable.Rowsel,CurrentTable.Cols("缸号").Index) End If End With 怎么判断列名在当前表是存在的？
|
| -- 作者：有点蓝 -- 发布时间：2016/12/12 14:42:00 -- Dim a As String = RibbonTabs("系统设置")("数据查询1")("缸号").Text With CurrentTable If .Cols.Contains("缸号") Then Dim r As Integer r = .FindRow("[缸号] like \'%" & a & "%\'",.Position + 1, True ) If r >= 0 Then .position = r CurrentTable.Select(CurrentTable.Rowsel,CurrentTable.Cols("缸号").Index) End If End If End With |