专家坐堂-AddSelect的onchange事件Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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