专家坐堂-[求助]输入字符串的格式不正确Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]输入字符串的格式不正确  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95895)

--  作者：hpyer2007
--  发布时间：2017/2/8 10:07:00
--  [求助]输入字符串的格式不正确

If e.DataCol.Name="合同编码" Then
e.DataRow("合同金额")=DataTables("合同录入").DataRows("合同金额")
End If
表事件DataColChanged的这段代码有什么错误吗?怎么会有这个错误提示

两个表的合同金额列都是双精度小数型

此主题相关图片如下：qq截图20170208095959.png

此主题相关图片如下：qq截图20170208100030.png

--  作者：有点色
--  发布时间：2017/2/8 10:15:00
--

跨表引用，这样做

http://www.foxtable.com/webhelp/scr/1451.htm

--  作者：有点色
--  发布时间：2017/2/8 10:18:00
--
If e.DataCol.Name="合同编码" Then
    Dim fdr As DataRow = DataTables("合同录入").find("合同编号 = \'" & e.DataRow("合同编码") & "\'")
    If fdr IsNot Nothing Then
        e.DataRow("合同金额") = fdr("合同金额")
    Else
        \'e.DataRow("合同金额") = Nothing
    End If
End If