以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  列表输入框默认值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126650)

--  作者：无限5180 --  发布时间：2018/10/25 20:16:00 --  列表输入框默认值   如何在这行代码中增加，默认值 ，谢谢！！！    .AddSelect("类别","单据类别","|" & DataTables("表").SQLGetComboListString("类别","代码 = \'DJLB\'"))

--  作者：无限5180 --  发布时间：2018/10/26 8:36:00 --   自己试了一下，用这个没问题 .AddSelect("类别","单据类别","[默认值]|" & DataTables("表").SQLGetComboListString("类别","代码 = \'DJLB\'"))

--  作者：有点蓝 --  发布时间：2018/10/26 9:35:00 --   Dim 默认值 As String = "|某某值|" Dim 默认值2 As String = "|[某某值]|" Dim 列表值 As String = "|" & DataTables("表").SQLGetComboListString("类别","代码 = \'DJLB\'") & "|" If 列表值.Contains(默认值) Then     列表值 = 列表值.Replace(默认值,默认值2).TrimEnd("|") End If .AddSelect("类别","单据类别",列表值)