- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 报错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148264)
-- 发布时间：2020/4/3 14:21:00
-- 报错
从字符串“null”到类型“Integer”的转换无效。
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
msgbox(1) 正常
Dim PageNumber As Integer = e.GetValues("page") 报错：从字符串“null”到类型“Integer”的转换无效。
Dim e As RequestEventArgs = args(0)
msgbox(PrimaryKey) 不能显示
Dim PageURL = "kcbxList.htm?page=" & PageNumber
If e.PostValues.Count = 0 Then \'生成编辑页面
Dim dr As DataRow = DataTables("控缀保学").SQLFind("[_Identify]=" & PrimaryKey)
[此贴子已经被作者于2020/4/3 14:21:26编辑过]
-- 发布时间：2020/4/3 14:31:00
--
无法获取主键
With wb.AddTable("","table1")
.Attribute = "style=\'width:550px\'"
\' .Alternate = 2 \'每两行显示一个不同背景颜色的行
\'.RowHead = 1
.PageNumber = page \'--------------------缺少这一句,没有设置页面
.ColWidth ="8px,45px,45px,45px,45px,100px"
.ActiveSheet = "menu"
.PrimaryKey = "_Identify" \'设置主键
.CreateFromDataTable(cmd.ExecuteReader) \'------------先设置上面的内容,最后再生成
End With
-- 发布时间：2020/4/3 15:00:00
--
这两行代码我在list函数中已加上了呀。
这就是说这两个值没有从list函数传到edit函数，这个问题怎么办呢，问题可能出在哪？
[此贴子已经被作者于2020/4/3 15:06:00编辑过]
-- 发布时间：2020/4/3 15:02:00
--
上传实例测试
-- 发布时间：2020/4/3 15:10:00
--
这就是说这两个值没有从list函数传到edit函数，这个问题怎么办呢，问题可能出在哪？
-- 发布时间：2020/4/3 15:13:00
--
新建项目做个可以测试的实例发上来
-- 发布时间：2020/4/3 15:27:00
--
.NET Framework 版本：4.0.30319.17929
Foxtable 版本：2020.1.19.19
错误所在事件：自定义函数Kcbxedit
详细错误信息：
调用的目标发生了异常。
从字符串“null”到类型“Integer”的转换无效。
输入字符串的格式不正确。
-- 发布时间：2020/4/3 15:38:00
--
| 下载信息 [文件大小：46.0 KB 下载次数：4] | |
 点击浏览该文件:问题.zip |
-- 发布时间：2020/4/3 15:45:00
--
[此贴子已经被作者于2020/4/3 16:06:37编辑过]
-- 发布时间：2020/4/3 16:00:00
--
1、sql没有返回_Identify列数据
cmd.CommandText = "Select * From (Select Row_Number() Over(Order by 学生姓名) As [NO.],[_Identify],学生姓名,年级,班级,家长姓名,联系电话,地址 From 控缀保学"
2、e.WriteString不能重复调用
Dim wb As New weui
Select Case e.Path
Case "kcbxfilter.htm"
\'Dim wb As New WeUI
wb.AddForm("","form1","kcbxlist.htm")
With wb.AddInputGroup("form1","ipg1","疑似辍学学生查询")
.AddSelect("product","年级","|九年级|八年级|七年级|六年级|五年级|四年级|三年级|二年级|一年级")
.AddSelect("bj","班级","|(1)班|(2)班|(3)班|(4)班|(5)班|(6)班|(7)班|(8)班")
.AddSelect("jdc","街道村","|铝厂居委会|峡西居委会|同兴村|同进村|广武村|三趟墩村|三台村")
.AddSelect("dqzt","当前状态","|疑似辍学|休学|休假|送教|培训")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
Return \'这里必须返回
Case "kcbxlist.htm"
Functions.Execute("kcbxlist",e)
Return \'这里必须返回
Case "kcbxedit.htm"
Functions.Execute("Kcbxedit",e)
Return \'这里必须返回
End Select
e.WriteString(wb.Build)