Case "yuyue.htm" '自助约课
Dim PageNumber As Integer = e.GetValues("page")
Dim PrimaryKey As Integer = e.GetValues("key")
Dim dr3 As DataRow = DataTables("课程安排").SQLFind("[_Identify]=" & PrimaryKey)
Dim dr4 As DataRow = DataTables("会员信息表").SQLFind("联系册_第一联系人_手机号 = '" & username & "'")
Dim khbh As String = dr4.SQLGetValue("客户编号")
If e.PostValues.Count = 0 Then '生成课程预约网页
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","请选择课包")
With .AddSelect("htbh","合同编号","|" & DataTables("会员合同明细").GetComboListString("合同编号","[客户编号] = '" & khbh & "'")) '建立合同选择列表框
'.Attribute = ""
End With
End With
Dim drht As DataRow = DataTables("会员合同明细").SQLFind("[合同编号] ='" & e.PostValues("htbh") & "'")
With wb.AddListGroup("","lsg1","合同信息")
.Add("ls3","合同状态","dqhtzt")
.Add("ls3","到期时间","dqhtsj")
.Add("ls3","合同类型","dqhtlx")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
End If
加好友 
发短信
Post By：2019/3/22 15:46:00 [显示全部帖子]
此主题相关图片如下：微信截图_20190322153953.png