以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何通过AddSelect，实现选择供应商名称，只保留供应商代码。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109038)
--  作者：lanbor
--  发布时间：2017/11/3 8:54:00
--  如何通过AddSelect，实现选择供应商名称，只保留供应商代码。
请教：

如何实现：用户选择供应商名称，程序只保留供应商代码。

1主档Test1.htm 语句如下：
   With .Add Select("sjc01","供应商:","|" & DataTables("suppliers").GetCombo ListString("sjc01")) \'希望通过用户选择：供应商简称
        .Attribute = "on change=""setAjax Options(\'po_supp_id\',\'po_select.htm\',\'sjc01\',false)"""
    End With
   .AddHidden Value("po_supp_id",e.postvalues("po_supp_id"))   ’然后把供应商代码保存在这个隐藏栏位中。

2.副档po_select.htm 语句如下：
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI \'定义一个东基于WeUI 框架的网页生成器
Dim vals As String
If e.PostValues.Count = 1 Then
    vals  = Data Tables("suppliers").GetCombo ListString("sbh01","sjc01=\'" & e.PostValues("sjc01") & "\'")
End If
e.Write String(vals)

3，目的：
\'希望通过用户选择：供应商简称(sjc01)
’然后把供应商代码(sbh01)保存在这个隐藏栏位中。
先谢谢专家！
[此贴子已经被作者于2017/11/3 9:01:10编辑过]
--  作者：有点甜
--  发布时间：2017/11/3 9:06:00
--  

换一种方式获取信息，参考

 

http://www.foxtable.com/mobilehelp/scr/0103.htm

 
--  作者：lanbor
--  发布时间：2017/11/3 9:54:00
--  多谢专家即时指证！
多谢专家即时指证！
这此 AJAX 功能真强大！