Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口组合框 求高手


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

主题：[求助]窗口组合框 求高手
帅哥哟，离线，有人找我吗？
cjz7120641
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：57 积分：554 威望：0 精华：0 注册：2015/5/10 17:46:00 		[求助]窗口组合框 求高手  发帖心情 Post By：2015/5/12 17:13:00 [只看该作者]

我想在我设计的窗口中加入两个组合框，第一个组合框显示的是表中列的标题，而第二个组合框中显示的是第一个组合框中标题列中的内容。现在问题是怎么提取表中标题的名称作为列表项目，在线等！

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/12 17:16:00 [只看该作者]

Dim str As String = ""
For Each c As Col In Tables("表A").Cols
    str &= c.Name & "|"
Next
msgbox(str.Trim("|"))

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


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/5/12 17:17:00 [只看该作者]

第二个
Tables("档案").Cols("二").ComboList =DataTables("档案").GetComboListString("二")
[此贴子已经被作者于2015/5/12 18:09:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cjz7120641
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：57 积分：554 威望：0 精华：0 注册：2015/5/10 17:46:00 		  发帖心情 Post By：2015/5/12 17:26:00 [只看该作者]

谢谢了

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


加好友 发短信
等级：幼狐 帖子：57 积分：554 威望：0 精华：0 注册：2015/5/10 17:46:00 		  发帖心情 Post By：2015/5/12 18:20:00 [只看该作者]

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("销售明细").GetComboListString("ComboBox2", "?= '" & str & "'")

问下这个代码能实现上面那个功能吗？如果可以那个“？”该写什么才能实现上面的功能，不能的话第二个框内的代码应该怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/12 19:21:00 [只看该作者]

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("销售明细").GetComboListString(str)
 回到顶部
帅哥哟，离线，有人找我吗？
cjz7120641
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：57 积分：554 威望：0 精华：0 注册：2015/5/10 17:46:00 		  发帖心情 Post By：2015/5/12 23:23:00 [只看该作者]

Dim st As String = e.Form.Controls("ComboBox1").Value
Dim str As String = e.Form.Controls("ComboBox2").Value
Dim dr As DataRow
dr = DataTables("销售明细").Find("st =  ' str '")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("销售明细").FindRow( dr )
    If wz >= 0 Then
        Tables("销售明细").Position = wz
    End If
End If

这个代码中 红色的应该怎么写，或者怎么才能实现查找表内 第一个组全框的列中 第二个组合框的内容
 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2015/5/13 2:21:00 [只看该作者]

查找表内 第一个组全框的列中 第二个组合框的内容 

没看懂 什么意思?
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/13 9:31:00 [只看该作者]

Dim st As String = e.Form.Controls("ComboBox1").Value
Dim str As String = e.Form.Controls("ComboBox2").Value
Dim dr As DataRow
dr = DataTables("销售明细").Find(st & " = '" & str & "'")

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