以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]为什么回出现这样的错误  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141173)

--  作者:zto001
--  发布时间:2019/9/23 13:55:00
--  [求助]为什么回出现这样的错误

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20190923135331.png
图片点击可在新窗口打开查看
我这里面没有任何数字类的文本以及表格,全都是字符串,为什么会出现这样的错误?

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20190923135325.png
图片点击可在新窗口打开查看


--  作者:zto001
--  发布时间:2019/9/23 13:55:00
--  
我这里面没有任何数字类的文本以及表格,全都是字符串,为什么会出现这样的错误?



--  作者:有点蓝
--  发布时间:2019/9/23 14:06:00
--  
勾选“显示详细信息”,看是哪里的错误
--  作者:zto001
--  发布时间:2019/9/23 14:51:00
--  
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.9.8.1
错误所在事件:【下拉】客户信息_Table1,DoubleClick
详细错误信息:
从字符串“客户姓名”到类型“Integer”的转换无效。
输入字符串的格式不正确。


--  作者:zto001
--  发布时间:2019/9/23 14:52:00
--  
Dim 收件人 As WinForm.TextBox = Forms("下订单").Controls("sjr")
Dim 收件电话 As WinForm.TextBox = Forms("下订单").Controls("sjdh")
Dim 收件省 As WinForm.DropDownBox = Forms("下订单").Controls("sjs")
Dim 收件市 As WinForm.TextBox = Forms("下订单").Controls("sjsi")
Dim 收件区 As WinForm.TextBox = Forms("下订单").Controls("sjq")
Dim 收件地址 As WinForm.TextBox = Forms("下订单").Controls("sjdz")
Dim r As Table = Tables("【下拉】客户信息_Table1")

If czlx="收件人" Then  ’全局代码
    收件人.value= r("客户姓名")
    收件电话.value=r("客户电话")
    收件省.value=r("省")
    收件市.value=r("市")
    收件区.value=r("区")
    收件地址.value=r("客户地址")
End If

--  作者:有点蓝
--  发布时间:2019/9/23 15:14:00
--  
第一行加上:e.cancel=true

其次改为这样赋值试试:收件人.text= r("客户姓名")