[求助]关于查询定位提示的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于查询定位提示的问题

共有1705人关注过本帖树形打印复制链接主题：[求助]关于查询定位提示的问题

tswxdts

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

加好友

发短信

等级：婴狐帖子：49 积分：341 威望：0 精华：0 注册：2016/10/19 18:12:00

[求助]关于查询定位提示的问题 发帖心情

Post By：2016/11/19 22:58:00 [只看该作者]

老师们！

在练习一个入库单在输入一个商品代码时，在库存表查询出最后一次库存时给一个提示框，提示可用库存，编写了一段代码：

Dim dr1 As DataRow

dr1 = DataTables("教材库存").Find("[商品代码] = 'e.newvalue'", "记录日期 Desc")

If dr1 IsNot Nothing Then

Dim kc As DataRow = dr1("总库存")

MessageBox.show("可用库存为: Convert.ToString(kc) ")

End If

怎么提示错误：

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2016.7.29.1

错误所在事件：表，入库单，DataColChanged

详细错误信息：

调用的目标发生了异常。

无法将类型为“System.Int32”的对象强制转换为类型“Foxtable.DataRow”

各位老师，是不是我写错代码了？

那正确的应该怎么写？初学者求助！

有点青

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

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2016/11/20 9:29:00 [只看该作者]

Dim dr1 As DataRow
dr1 = DataTables("教材库存").Find("[商品代码] = '" & e.newvalue & "'", "记录日期 Desc")
If dr1 IsNot Nothing Then
Dim kc As string = dr1("总库存")
MessageBox.show("可用库存为: " & kc)
End If

[此贴子已经被作者于2016/11/20 9:29:10编辑过]

tswxdts826

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

加好友

发短信

等级：婴狐帖子：3 积分：80 威望：0 精华：0 注册：2016/11/20 9:42:00

Post By：2016/11/20 9:44:00 [只看该作者]

谢谢有点青老师！

我前面那个用户名：tswxdts,的密码忘了，今天天重新注册了一个！

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

主题：[求助]关于查询定位提示的问题