以文本方式查看主题

-  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=146158)

--  作者:北冰洋
--  发布时间:2020/2/17 21:05:00
--  [求助] 好像是表达式错误了,不会改了
提示错误,不会改了,目的是查找出来 产品资料表 里的 票号 跟 回款表 里的 票号 一样的行, 然后将产品资料表里的 回款记录列 自动填入 回款表 里的 订单编号列 的值,求帮忙。。。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:帮忙.txt



--  作者:有点蓝
--  发布时间:2020/2/17 21:18:00
--  
cmd.CommandText = "select * FROM {回款} WHERE 订单编号= \'" & e.values("编号") &  "\'"
dt= cmd.ExecuteReader()
If dt.datarows.count > 0 Then
    cmd.CommandText = "select * FROM {产品资料} WHERE 票号= \'" & dt.datarows(0)("票号") &  "\'"
    dt1= cmd.ExecuteReader(True)
    If dt1.datarows.count > 0 Then
        dt1.datarows(0)("回款记录") = dt.datarows(0)("订单编号")
dt1.save
    End If
End If

或者一条sql搞定

cmd.CommandText = "update {产品资料} set 回款记录 = \'" & e.values("编号") &  "\' where 票号 in (select 票号 from {回款} WHERE 订单编号= \'" & e.values("编号") &  "\')"
cmd.ExecuteNonQuery

--  作者:北冰洋
--  发布时间:2020/2/17 21:34:00
--  
谢谢 还有个问题,这段代码我要怎么改才可以在下面这段代码里加上而且不影响他里面的其他功能呢,谢谢 帮帮忙
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:求帮忙2.txt


--  作者:有点蓝
--  发布时间:2020/2/17 21:46:00
--  
没看懂。这段代码和其它功能有什么关系?
--  作者:北冰洋
--  发布时间:2020/2/17 21:54:00
--  
网页上使用时,点击新增的话,会在回款表里新增记录,需求是要在新增这个记录之后(其中有订单编号列),把产品资料表里的 回款记录列(原来没有值) 自动填入 回款表 里的 订单编号列 的值,就是根据票号列,票号一致的才把 产品资料表里的 回款记录 列给填入 回款表里 对应 票号 的记录的 订单编号列里的值
--  作者:有点蓝
--  发布时间:2020/2/17 22:05:00
--  
那么回款表新增的行在什么时候给票号列赋值的?
--  作者:北冰洋
--  发布时间:2020/2/17 22:13:00
--  
那个。。我其实看不太懂,票号列应该是解析的明细表里出来的
--  作者:有点蓝
--  发布时间:2020/2/17 22:25:00
--  
啊!自己写的代码看不懂?

票号在哪赋值的,直接取到票号作为条件更新产品资料不就行了