主题：如何通过AddSelect，实现选择供应商名称，只保留供应商代码。

   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"))   ’然后把供应商代码保存在这个隐藏栏位中。

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)保存在这个隐藏栏位中。