Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[求助]窗口按钮实现选择指定列

1楼
185723664 发表于: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编辑过]
2楼
有点蓝 发表于:2024/8/29 20:26:00
参考:http://www.foxtable.com/webhelp/topics/0550.htm
3楼
185723664 发表于:2024/8/29 21:58:00
蓝大师,下面代码,报错,求助

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
4楼
有点蓝 发表于:2024/8/29 22:20:00
当前表不就一个?为什么要遍历所有表?另外这个select功能是table才有的,请认真看帮助
5楼
185723664 发表于: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
6楼
有点蓝 发表于:2024/8/29 22:52:00
查询,筛选的使用的表达式里才需要添加单引号:http://www.foxtable.com/webhelp/topics/1284.htm

其它正常代码里的字符串不需要加单引号
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.