手机网页编辑数据,查询赋值,我按帮助介绍上操作,列表框不可能用value,提示“不是WSELECT的成员”,这个是用什么来处理的呀?
Dim dr As DataRow = DataTables("hr_aaa").SQLFind("[ID]=" & PrimaryKey)
If dr IsNot Nothing Then
wb.AddForm("","form1","Qjd_edit.htm?key=" & PrimaryKey & "&page=" & PageNumber)
With wb.AddInputGroup("form1","ipg1","编辑")
.AddSelect("qjtype","请假类型","事假|病假|婚假").Value = dr("qjtype") '这段出错
.AddInput("stardate","开始日期","date").value = dr("stardate")
.AddInput("strtime","开始时间","time").value = dr("strtime")
.AddInput("enddate","结束日期","date").value = dr("enddate")
.AddInput("endtime","结束时间","time").value = dr("endtime")
End With
end if