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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → datacolchanged-find 双条件报错

共有3193人关注过本帖树形打印复制链接主题：datacolchanged-find 双条件报错

home8225

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

加好友

发短信

等级：幼狐帖子：169 积分：1678 威望：0 精华：0 注册：2014/3/27 16:44:00

datacolchanged-find 双条件报错 发帖心情

Post By：2016/6/13 10:50:00 [只看该作者]

If e.DataCol.Name = "客户要求产品型号" Then

Dim dr As DataRow

dr = DataTables("订单明细").Find("订单号= '" & e.DataRow("订单号") & "' and 客户要求产品型号 = #" & e.DataRow("客户要求产品型号") & "#")

If dr IsNot Nothing '如果找到, 则设置各列内容

e.DataRow("客户要求产品名称")= dr("客户要求产品名称")

e.DataRow("客户项目")= dr("项目单位")

End If

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

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

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

谢谢！！

[此贴子已经被作者于2016/6/13 10:52:52编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/13 11:12:00 [只看该作者]

代码没问题，你日期格式的问题

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=86157&replyID=596595&skin=1

home8225

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

加好友

发短信

等级：幼狐帖子：169 积分：1678 威望：0 精华：0 注册：2014/3/27 16:44:00

Post By：2016/6/13 12:00:00 [只看该作者]

1. 我的狐狸文件是在本地，数据库在服务器上，两边都修改短日期格式后仍然报相同错误，PS：代码更改看不懂...；

2.修改代码如下后报错，但内容不一样，见下图

If e.DataCol.Name = "订单号" Then

Dim dr As DataRow

dr = DataTables("订单明细").Find("订单号= '" & e.DataRow("订单号") & "' And 客户要求产品型号= #" & e.DataRow("客户要求产品型号") & "# ")

If dr IsNot Nothing '如果找到, 则设置各列内容

e.DataRow("客户要求产品名称")= dr("客户要求产品名称")

e.DataRow("客户项目")= dr("项目单位")

End If

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

3.因为父表中“客户要求产品型号”和“订单号"都不具备唯一性,所以同时关联了两个字段来保证唯一性，单仍然有重复的可能，不知道会不会报错；

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

[此贴子已经被作者于2016/6/13 12:02:08编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/13 12:07:00 [只看该作者]

代码这样写

If e.DataCol.Name = "订单号" Then
Dim dr As DataRow
    dr = DataTables("订单明细").Find("订单号= '" & e.DataRow("订单号") & "' And 客户要求产品型号= '" & e.DataRow("客户要求产品型号") & "'")

    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("客户要求产品名称")= dr("客户要求产品名称")
        e.DataRow("客户项目")= dr("项目单位")
    End If
End If

http://www.foxtable.com/help/topics/1647.htm

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

主题：datacolchanged-find 双条件报错