''
Dim e As RequestEventArgs = args(0)
'Dim sb As New StringBuilder
Dim wb As new weui
'Dim lst As List(of DataRow) = DataTables("学生信息").sqlSelect("学校名称= '内江市第五初级中学校' and 班级='初中2016级2班'")
Dim lst As List(of DataRow) = DataTables("学生信息").sqlSelect("学校名称= '内江市第五初级中学校'")
wb.InsertHTML("<!DOCTYPE html>")
wb.InsertHTML("<html>")
wb.InsertHTML("<head>")
wb.InsertHTML("<meta charset='utf-8'>")
wb.InsertHTML("<meta name='viewport' c />")
wb.InsertHTML("<title></title>")
wb.InsertHTML("<script src='../mui/js/mui.js'></script>")
wb.InsertHTML("<link href='../mui/css/mui.css' rel='stylesheet'/>")
wb.InsertHTML("<script Type='text/javascript' charset='utf-8'>mui.init();</script>")
wb.InsertHTML("</head>")
wb.InsertHTML("<body>")
wb.InsertHTML("<header class='mui-bar mui-bar-nav mui-bar-nav-bg'>")
wb.InsertHTML("<a id='icon-menu' class='mui-action-back mui-icon mui-icon-left-nav mui-pull-left'></a>")
wb.InsertHTML("<h1 class='mui-title'>学生信息</h1>")
wb.InsertHTML("</header>")
wb.InsertHTML("<div class='mui-content'>")
wb.InsertHTML("<br>")
wb.InsertHTML("<br>")
wb.InsertHTML("<br>")
Dim nms() As String = {"班级","学生姓名","身份证件号","学籍号","户籍地址","家庭住址","联系电话","民族","政治面貌","综合素质","邮政编码","户口性质","出生日期","性别","状态","就读方式","是否建档立卡贫困户","健康状况","是否留守"}
Dim cps() As String = {"班级","学生姓名","身份证件号","学籍号" ,"户籍地址","家庭住址","联系电话","民族","政治面貌","综合素质","邮政编码","户口性质","出生日期","性别","状态","就读方式","是否建档立卡贫困户","健康状况","是否留守"}
wb.InsertHTML("<div style='width:100%; overflow-x:auto;'>")
wb.InsertHTML("<Table border='1'cellpadding='0' align='center'>")
wb.InsertHTML("<tr>")
For Each cp As String In cps
wb.InsertHTML("<td style='font-size:20px;color:blue;white-space:nowrap;' align='center'>" & cp & "</td>")
Next
wb.InsertHTML("</tr>")
Dim sb As new Stringbuilder
For r As Integer=0 To lst.Count-1
sb.append("<tr>")
For Each nm As String In nms
sb.append("<td style='font-size:16px;white-space:nowrap;' align ='center'>" & lst(r)(nm) & "</td>")
Next
sb.append("</tr>")
Next
wb.InsertHTML(sb.Tostring)
wb.InsertHTML("</Table></br></br></br>")
wb.InsertHTML("</div>")
e.WriteString(wb.Build)
'e.Handled = True
加好友 
发短信
Post By：2018/9/26 12:19:00 [显示全部帖子]
