Foxtable(狐表)用户栏目专家坐堂 → 请教多列调用下拉窗口的问题


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

主题:请教多列调用下拉窗口的问题

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47511 积分:251479 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/13 9:35:00 [显示全部帖子]

你可以判断Tables("选择产品_Table1")的当前列的名称啊

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47511 积分:251479 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/13 10:31:00 [显示全部帖子]

Dim tbl As Table = Tables("选择产品_Table1")

If tbl.Current IsNot Nothing Then

         if tbl.Cols(tbl.Colsel).Name = "产品名称" Then
              Forms("选择产品").DropDownBox.Value = tbl.Current("产品名称")

         elseif tbl.Cols(tbl.Colsel).Name = "产品编号" Then
             Forms("选择产品").DropDownBox.Value = tbl.Current("产品编号")

         end if

End If
Forms("选择产品").DropDownBox.CloseDropDown()


 回到顶部