Foxtable(狐表) → 用户栏目 → 专家坐堂 → 接口上报，帮忙指导一下

共有9634人关注过本帖树形打印复制链接主题：接口上报，帮忙指导一下

有点蓝

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

加好友

发短信

等级：超级版主帖子：106603 积分：542186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/10/22 9:15:00 [显示全部帖子]

调试看是卡在哪一句代码

有点蓝

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

加好友

发短信

等级：超级版主帖子：106603 积分：542186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/11/7 20:39:00 [显示全部帖子]

遍历所有行逐行判断：http://www.foxtable.com/webhelp/topics/1438.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：106603 积分：542186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/1/2 20:34:00 [显示全部帖子]

If rd >"" Then

Dim Names As String() = rd.split(",")

有点蓝

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

加好友

发短信

等级：超级版主帖子：106603 积分：542186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/1/6 8:49:00 [显示全部帖子]

SE LECT b._Identify, b._Locked, b._SortKey, b.创建人, b.创建日期, b.编辑人, b.编辑日期, b.产品编号, b.产品名称, b.产品类别,

b.规格, b.单价, b.单位, b.产品条码, b.备注, b.图片, b.性质, b.负责人, b.负责人编号, b.供应商, b.供应商编号, c.仓库,

c.入库数量, c.出库数量, c.库存数量, b.类别, b.装箱数, b.产品型号, b.产品颜色, b.客户名称, b.作废标志, b.累计销售,

b.操作日志, b.创建人编号, b.当前操作人, c.库存金额,c.数量差 * b.单价 AS 库存金额

FROM dbo.ZL_产品资料 AS b RIGHT OUTER JOIN

(SE LECT MAX(_identify) AS _identify, 产品编号, 仓库, SUM(入库数量) AS 入库数量, SUM(出库数量) AS 出库数量,

SUM(入库数量 - 出库数量) AS 库存数量, SUM(入库数量 - 出库数量) AS 数量差

FROM dbo.V_YW_库存明细 AS a

GROUP BY 产品编号, 仓库) AS c ON c.产品编号 = b.产品编号

有点蓝

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

加好友

发短信

等级：超级版主帖子：106603 积分：542186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/1/6 8:50:00 [显示全部帖子]

http://www.foxtable.com/webhelp/topics/0696.htm

示例五

ExecuteReader有一个可选参数，如果设置为True，那么生成的DataTable不仅可以增加、删除和修改数据，还可以保存。
新建一个文件，在命令窗口测试下面的代码，会在A的第一行的第一列写入123，并删除第二行：

Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
Dim dt As DataTable
cmd.CommandText = "Select * From {表A}"
dt = cmd.ExecuteReader(True) '记得将参数设置为True
dt.DataRows(0)("第一列") = 123
dt.DataRows(1).Delete()
dt.Save()
DataTables("表A").Load() '重新加载表A,看看值是否已经变化