Dim dr1 As DataRow = DataTables("xinxi").SQLFind("openid ='" & Openid & "'")
With wb.AddInputGroup("form1", "ipg1", "客户资料")
.AddInput("客户名", "姓名", "Text").value = format(dr1("客户名")) '前一个"姓名"是ID,后一个"姓名"是标题
With .AddInput("nickname", "昵称", "Text").value = format(dr1("nickname"))
.Value = "张三"
.Readonly = True
End With
With .AddInput("openid", "openid", "Text").value = dr1("openid")
.Readonly = True
End With
.AddInput("电话", "电话", "number").value = format(dr1("电话"))