- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 数据核对问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91878)
-- 发布时间：2016/10/20 22:38:00
-- 数据核对问题
麻烦各位老师：
我有两个表，两个表都有核对、品名、单价、数量列，核对列为逻辑列。
我想做一个按钮，点击按钮后。两个表中，如果品名、单价、数量相等的行，核对列被选中。
请哪位老师，帮忙怎么写编码，急用，谢谢。
-- 发布时间：2016/10/20 22:39:00
--
上例子
-- 发布时间：2016/10/20 22:43:00
--
压缩包怎么上传
-- 发布时间：2016/10/20 22:44:00
--
上传附件
-- 发布时间：2016/10/20 22:51:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:国控吉林销售汇总与入库核对表.table |
-- 发布时间：2016/10/20 22:51:00
--
请大师帮忙
-- 发布时间：2016/10/20 22:54:00
--
请老师帮忙，急用。
-- 发布时间：2016/10/20 23:24:00
--
按钮事件，或者命令窗口执行下面代码
DataTables("国控销售组合汇总对我公司入库").SQLReplaceFor("核对",False)
DataTables("我公司入库对国控吉林销售").SQLReplaceFor("核对",False)
Dim sql = "uｐdate {国控销售组合汇总对我公司入库} as a,{我公司入库对国控吉林销售} as b set a.核对 = true,b.核对 = true where a.品名 = b.品名 and a.含税单价=b.含税单价 and a.数量 = b.数量"
Dim cmd As new SQLCommand
cmd.CommandText = sql
cmd.ExecuteNonQuery
DataTables("国控销售组合汇总对我公司入库").Load
DataTables("我公司入库对国控吉林销售").Load
-- 发布时间：2016/10/21 8:18:00
--
非常感谢有点蓝老师。
-- 发布时间：2022/3/3 11:24:00
--
DataTables("国控销售组合汇总对我公司入库").SQLReplaceFor("核对",False)
DataTables("我公司入库对国控吉林销售").SQLReplaceFor("核对",False)
Dim sql = "uｐdate {国控销售组合汇总对我公司入库} as a,{我公司入库对国控吉林销售} as b set a.核对 = true,b.核对 = true where a.品名 = b.品名 and a.含税单价=b.含税单价 and a.数量 = b.数量"
Dim cmd As new SQLCommand
cmd.CommandText = sql
cmd.ExecuteNonQuery
DataTables("国控销售组合汇总对我公司入库").Load
DataTables("我公司入库对国控吉林销售").Load
请问老师：外部数据源，是不是写上数据源呢？假如一个表为标准，已核对，另一个表查找相同的行勾选核对项，代码写成
DataTables("国控销售组合汇总对我公司入库").SQLReplaceFor("核对",False)
Dim sql = "uｐdate {国控销售组合汇总对我公司入库} as a,{我公司入库对国控吉林销售} as b set a.核对 = true where a.品名 = b.品名 and a.含税单价=b.含税单价 and a.数量 = b.数量 and b.核对 = true"
Dim cmd As new SQLCommand
cmd.CommandText = sql
cmd.ExecuteNonQuery
DataTables("国控销售组合汇总对我公司入库").Load
这样吗？