[浏览完整版]
标题：如何判断是否正确
21楼
xuzihang 发表于：2024/5/20 23:24:00没了；；老师。这个页面就是两个
Case "jihuo.htm" '激活卡号
Case "jhyztk.htm" 和一个 jhyztk.js |
22楼
xuzihang 发表于：2024/5/20 23:26:00没了，这个页面就两个
Case "jihuo.htm" Case "jhyztk.htm" 和一个 jhyztk.js' |
23楼
有点蓝 发表于：2024/5/20 23:26:00麻烦认真看看2楼
Case "jihuo.htm" '激活卡号
UserName = e.Cookies("username")
OpenID = e.Cookies("openid")
KHID = e.Cookies("KHID")
If e.PostValues.Count = 0 Then
wb.AddTopTips("", "toptip1", "") '用于显示动态错误提示
wb.AddForm("", "form1", "jihuo.htm").Attribute = ""
With wb.AddInputGroup("form1", "ipg1", "客户资料") '空行时候，从客户信息里引来的数据
.AddHiddenValue("openid", dr1("openid"))
.AddHiddenValue("KHID", dr1("KHID"))
.AddHiddenValue("nickname", dr1("nickname"))
.AddInput("姓名", "姓名", "Text").value = dr1("客户名") '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("电话", "电话", "number").value = dr1("电话")
With .AddInput("地址", "地址", "Text")
.value = dr1("客户住址_蓝牌地址")
.PlaceHolder = "唯一地址，不可更改"
End With
End With
With wb.AddInputGroup("form1", "ipg2", "会员类型")
With .AddSelect("类别", "类别", "|" & DataTables("会员类型").GetComboListString("类别"))
.Attribute = ""
End With
.AddSelect("会员类型", "会员类型", "")
.AddHiddenValue("入会日期", Date.Today)
.AddInput("年费", "售价", "Text")
.AddInput("卡号", "卡号", "Text")
.AddInput("激活码", "密码", "password")
.AddInput("销售人", "推荐人", "Text")
End With
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btn3", "提交绑卡信息", "submit")
End With
wb.AppendHTML(" < script src = './lib/jhyztk.js'></script>") '引入脚本文件 判断数据
e.WriteString(wb.Build)
End With
Else
Dim nms() As String = {"openid", "姓名", "电话", "入会日期", "地址", "类别", "会员类型", "卡号", "年费", "销售人", "激活码"} '不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
With wb.AddMsgPage("", "msgpage", "增加失败", nm & "不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn1", "返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return '必须返回
End If
Next
nms = New String() {"openid", "nickname", "KHID", "姓名", "电话", "入会日期", "类别", "地址", "会员类型", "卡号", "年费", "销售人"} '重新定义了nms数组,增加了两列.
Dim dr3 As DataRow = DataTables("会员充值").AddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr3(nm) = e.PostValues(nm)
End If
Next
dr3.save()
With wb.AddMsgPage("", "msgpage", "增加成功", "用心服务好每一个家庭") '生成成功提示页
' .AddButton("btn1", "继续修改", "jihuo.htm").Kind = 1
.AddButton("btn2", "返回首页", "default.htm")
End With
e.WriteString(wb.Build)
End If
24楼
xuzihang 发表于：2024/5/20 23:33:00例子里是这样写的，我也是，为什么不要用呢
此主题相关图片如下：微信图片_20240520233223.png
此主题相关图片如下：微信图片_20240520233223.png25楼
xuzihang 发表于：2024/5/20 23:44:00老师你休息吧，明天帮我看看把，我没找出来问题在哪里
26楼
有点蓝 发表于：2024/5/21 8:35:00看23楼
27楼
xuzihang 发表于：2024/5/21 8:48:00例子，好像有问题吧，我例子做了一遍，也是这个样子的
28楼
有点蓝 发表于：2024/5/21 9:01:00我测试没有问题，请上传实例说明
29楼
xuzihang 发表于：2024/5/21 10:26:00临时做的表
30楼
xuzihang 发表于：2024/5/21 10:29:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:验证测试.zip |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:jihuocz.zip |
[此贴子已经被作者于2024/5/21 10:31:19编辑过]