怎么按自定义字段排序
Dim cmd As New SQ LCommand
cmd.C
cmd.CommandText = "sel ect a.uid,a.kjid,a.CoursewareTitle,a.CoursewarePicture,a.lecturer,b.自定义排序,b.点播次数,b.是否启用 Fr om 详细课件 a,学员权限设置 b WHERE a.uid =b.[课件ID] And b.openid ='" & e.Cookies("openid") & "' And 是否启用 ='" & TrueA & "'"
Dim yhm As DataTable = cmd.ExecuteReader()
Dim drsa As List(Of DataRow) = yhm.Sel ect("","自定义排序")
For Each adra As DataRow In drsa
With .Add("pn" & adra("uid"),adra("CoursewareTitle"),"讲师: " & adra("lecturer") &"","./image/" & adra("CoursewarePicture"),"OnlineVideo.htm?page=" & adra("uid") & "&id=" & adra("kjid"))
.AddFoot("学习次数: " & adra("点播次数") & "次")
End With
Next
加好友 
发短信
Post By：2018/11/26 15:59:00 [显示全部帖子]
