Foxtable(狐表) → 用户栏目 → 专家坐堂 → 读取表标题


  共有2136人关注过本帖树形打印复制链接

主题：读取表标题
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2450 积分：22610 威望：0 精华：0 注册：2011/3/29 17:14:00 		读取表标题  发帖心情 Post By：2018/2/12 18:09:00 [只看该作者]

读取表标题
能够直接将表标题作为列的下拉项目吗
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/12 18:26:00 [只看该作者]

Dim s As String = ""
Dim tab = basemainform.controls("mainpages")
For Each p As object In tab.tabpages
    s &= p.text & "|"
Next
Tables("表A").cols("第二列").ComboList = s.trim("|")

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2450 积分：22610 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/12 19:02:00 [只看该作者]

感谢老师  追问下  所有窗口呢  也想一起读出来

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105926 积分：538693 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/2/12 20:11:00 [只看该作者]

http://www.foxtable.com/webhelp/scr/0703.htm

For Each frm As WinForm.Form In Forms
    Output.Show(frm.Name)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2450 积分：22610 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/13 1:52:00 [只看该作者]

For Each frm As WinForm.Form In Forms
    Tables("菜单目录").cols("对应窗口").ComboList = frm.Name
Next

不能像下面一样读出所有的窗口作为列表

Dim s As String = ""
Dim tab = basemainform.controls("mainpages")
For Each p As object In tab.tabpages
    s &= p.text & "|"
Next
Tables("菜单目录").cols("对应表").ComboList = s.trim("|")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/13 8:42:00 [只看该作者]

Dim s As String = ""
For Each frm As WinForm.Form In Forms
    s &= frm.name & "|"
Next
Tables("表A").cols("第二列").ComboList = s.trim("|")

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2450 积分：22610 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/23 2:43:00 [只看该作者]

Dim s As String = ""
Dim tab = basemainform.controls("mainpages")
For Each p As object In tab.tabpages
    s &= p.text & "|"
Next
Tables("表A").cols("第二列").ComboList = s.trim("|")

老师您好 希望增加一个代码
一旦确认 希望将Tables("表A")的字段写入到 cols("字段")间隔符号是("|")

Dim dr As DataRow
If dr("文件名称") = e.DataTable.Name
    Dim str As String = ""
    For Each c As DataCol In e.DataTable.DataCols
        str += c.Name & "=" & e.DataRow(c.Name) & "|"
    Next
    dr("表格字段") = str
End If

以上代码无效 求助
[此贴子已经被作者于2018/2/23 2:57:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/23 9:09:00 [只看该作者]

Dim dr As DataRow = e.DataRow
If e.DataCol.name = "表名" Then
    Dim str As String = ""
    For Each c As DataCol In DataTables(dr("表名")).DataCols
        str += c.Name & "|"
    Next
    dr("字段") = str
End If
 
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2450 积分：22610 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/28 20:03:00 [只看该作者]

Dim dr As DataRow = e.DataRow
If e.DataCol.name = "表名" Then
    Dim str As String = ""
    For Each c As DataCol In DataTables(dr("表名")).DataCols
        str += c.Name & "|"
    Next
    dr("字段") = str
End If

这个是一次读取出来  我还是想成为列表选择，可以选择。和上面的窗口一样
[此贴子已经被作者于2018/2/28 20:02:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/28 21:23:00 [只看该作者]

不明白你的意思，请上传实例说明你的问题。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询