我发现这样改改字符串就ok了
Dim username As String = e.cookies("isj") '从cookie取会员用户名(手机号)
Dim drusername As DataRow = DataTables("会员资料").sqlFind("手机 = '" & username & "'") '根据会员的手机号,到"会员资料"表,找出会员所在的行
Dim zuixnl As String '定义最小年龄
Dim zuidnl As String '定义最大年龄
If drusername IsNot Nothing Then
zuixnl = drusername("首页筛选_最小年龄") '从"会员资料"取最小年龄
zuidnl = drusername("首页筛选_最大年龄") '从"会员资料"取最大年龄
Else
msgbox("您尚未登录!请登录后再查找!")
End If
Dim txtzdnl As String
wb.AddForm("","form1","index_shaix.htm").Attribute=""
With wb.AddInputGroup("form1","ipg1","首页筛选设置")
.AddSelect("zxnl","最小年龄",zuixnl & "|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|35|40|50|60")
.AddSelect("zdnl","最大年龄",zuidnl & "|18|19|20|21|22|23|24|25|26|27|28|29|30|31|32|33|34|35|40|50|60|99")
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定","submit") '.Attribute=""
End With
End With