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


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

主题:[求助]窗口组合框 求高手

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("|"))

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 & "'")

 回到顶部