Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]下拉菜单想传递个参数，应该在那里写代码


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

主题：[求助]下拉菜单想传递个参数，应该在那里写代码
帅哥哟，离线，有人找我吗？
2900819580
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1353 积分：9868 威望：0 精华：0 注册：2015/6/30 8:46:00 		[求助]下拉菜单想传递个参数，应该在那里写代码  发帖心情 Post By：2022/5/7 23:58:00 [只看该作者]

1、全局中声明变量_BmNmae


2、以下为下拉窗体的DropDownOpened代码 想问，我想在下拉窗体要打开时增加一个参数，应该在设置下拉的Table那里写代码：BmNmae = “销售部”。
Dim txt As String = e.Form.DropDownBox.Text
Dim tb As Table = Tables(e.Form.Name & "_table1")
Dim dt As DataTable = tb.DataTable 
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Sele ct * from {UseGl} where FID = 1 and BmName = '" & _BmNmae & "'" 
If txt > "" Then
    txt = "'%" & txt & "%'"
    cmd.CommandText &= " ( username Like " & txt & " Or bmname Like " & txt & " )"
End If
'MessageBox.Show(cmd.CommandText)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
tb.DataSource = cmd.ExecuteReader
tb.SetColVisibleWidth("Itid|88|BmName|88|UseName|88")
tb.AutoSizeCols
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
[此贴子已经被作者于2022/5/7 23:58:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/8 20:36:00 [只看该作者]

目的是什么？如果是要根据不同的table设置不同的值，应该就到DropDownOpened代码处理

if e.Form.DropTable.name = “表A”
_BmNmae= “销售部”
endif
Dim txt As String = e.Form.DropDownBox.Text
Dim tb As Table = Tables(e.Form.Name & "_table1")
Dim dt As DataTable = tb.DataTable 
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Sele ct * from {UseGl} where FID = 1 and BmName = '" & _BmNmae & "'" 
 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1353 积分：9868 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：2022/5/9 16:48:00 [只看该作者]

老师，谢谢，上面的问题解决了，

另一个新的问题，BOM中有二列，一个是新料号，一个是旧料号，现在需要新旧料号共存，所以物料表也做了新旧料号，
BOM新旧料号下拉设置，但是以下代码，只能返回料号，如何可以判断是从旧料号打开的下拉窗体就返回旧料号，从料号打开的就返回新料号
tb.Cols("料号").DropForm = "物料表查询"
tb.Cols("旧料号").DropForm = "物料表查询"

If e.Selected Then '如果选择了值
Dim tbl As Table = Tables(e.Form.Name & "_Table1")
    If tbl.Current IsNot Nothing Then
     如果是料号下拉打开的话   e.Form.DropDownBox.Value = tbl.Current("料号")
     如果是旧料号下拉打开的话   e.Form.DropDownBox.Value = tbl.Current("旧料号")
        If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
            e.Form.DropTable.FinishEditing() 
        Else '如果是通过窗口下拉的
            e.Form.DropDownBox.WriteValue() 
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/9 17:01:00 [只看该作者]

判断DropCol：http://www.foxtable.com/webhelp/topics/2705.htm

if e.Form.DropCol.name = "料号" then
e.Form.DropDownBox.Value = tbl.Current("料号")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 4 次数据查询