以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于查询定位提示的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93074)
--  作者：tswxdts
--  发布时间：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”
各位老师，是不是我写错代码了？
那正确的应该怎么写？初学者求助！
--  作者：有点青
--  发布时间：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
--  发布时间：2016/11/20 9:44:00
--  
谢谢有点青老师！
我前面那个用户名：tswxdts,的密码忘了，今天天重新注册了一个！