- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口按钮实现选择指定列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193254)
-- 发布时间：2024/8/29 17:55:00
-- [求助]窗口按钮实现选择指定列
此主题相关图片如下：窗口按钮实现选择指定列.jpg
求助，下面代码修改后，实现操作
1. 录入 第三列
2. 点击按钮：
实现效果： 假如当前表，存在 第三列，光标定位到 第三列
For Each dt As DataTable In DataTables
Dim s As String = e.Form.Controls("ComboBox1").Value
If dt.name = "s" Then
currenttable.Col = s
End If
Next
[此贴子已经被作者于2024/8/29 18:04:01编辑过]
-- 发布时间：2024/8/29 20:26:00
--
参考：http://www.foxtable.com/webhelp/topics/0550.htm
-- 发布时间：2024/8/29 21:58:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
蓝大师，下面代码，报错，求助
With Tables("\'" & currenttable.name & "\'")
For Each dt As DataTable In DataTables
Dim s As String = e.Form.Controls("ComboBox1").Value
If dt.name = "s" Then
.Select(.RowSel, .Cols("s").Index)
End If
Next
End With
-- 发布时间：2024/8/29 22:20:00
--
当前表不就一个？为什么要遍历所有表？另外这个select功能是table才有的，请认真看帮助
-- 发布时间：2024/8/29 22:48:00
-- 回复：（有点蓝）当前表不就一个？为什么要遍历所有表...
蓝大师，还报错，哪里出问题
With Tables("\'" & currenttable.name & "\'")
Dim s As WinForm.ComboBox = e.Form.Controls("ComboBox1")
.Select(.RowSel,.Cols("\'" & s.text & "\'").Index)
End With
-- 发布时间：2024/8/29 22:52:00
--
查询，筛选的使用的表达式里才需要添加单引号：http://www.foxtable.com/webhelp/topics/1284.htm
其它正常代码里的字符串不需要加单引号