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

共有2902人关注过本帖树形打印复制链接主题：报错

nxqtxwz

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

报错

Post By：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编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

nxqtxwz

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2020/4/3 15:00:00 [只看该作者]

这两行代码我在list函数中已加上了呀。

这就是说这两个值没有从list函数传到edit函数，这个问题怎么办呢，问题可能出在哪？

[此贴子已经被作者于2020/4/3 15:06:00编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/3 15:02:00 [只看该作者]

上传实例测试

nxqtxwz

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2020/4/3 15:10:00 [只看该作者]

这就是说这两个值没有从list函数传到edit函数，这个问题怎么办呢，问题可能出在哪？

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/3 15:13:00 [只看该作者]

新建项目做个可以测试的实例发上来

nxqtxwz

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2020/4/3 15:27:00 [只看该作者]

.NET Framework 版本：4.0.30319.17929
Foxtable 版本：2020.1.19.19
错误所在事件：自定义函数Kcbxedit
详细错误信息：
调用的目标发生了异常。
从字符串“null”到类型“Integer”的转换无效。
输入字符串的格式不正确。

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/3 15:38:00 [只看该作者]

下载信息 [文件大小：46.0 KB 下载次数：4]
点击浏览该文件:问题.zip

nxqtxwz

小大 9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2020/4/3 15:45:00 [只看该作者]

[此贴子已经被作者于2020/4/3 16:06:37编辑过]

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112379 积分：572157 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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)

下一主题 >> << 上一主题

主题：报错