Dim bh1 As String = "全部"
Dim bh3 As String = "[全部]"
Dim sl3 As String = "|" & DataTables("手机开支申请").SQLGetComboListString("店名") & "|" 这里面没有全部数值,我想让他网页打开.AddSelect("店名"就显示全部
sl3 = sl3.replace(bh1, bh3).TrimEnd("|")
.AddSelect("店名", "店名", String.join("|", sl3.toarray))
Dim sl3 As String = "[全部]|" & DataTables("手机开支申请").SQLGetComboListString("店名")
.AddSelect("店名", "店名", sl3)