接口上报，帮忙指导一下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

有点蓝

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

加好友

发短信

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

Post By：2023/8/16 14:10:00 [只看该作者]

什么异常，什么错误？

zoyong

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

加好友

发短信

等级：三尾狐帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2023/8/16 15:05:00 [只看该作者]

详细错误信息：

此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据

有点蓝

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

加好友

发短信

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

Post By：2023/8/16 15:22:00 [只看该作者]

For Each dr As DataRow In dt.DataRows

nr = dtt.Find("立项编号 = '" & dr("立项编号") & "'")

If nr Is Nothing Then

nr = dtt.AddNew()

End If

For Each dc As DataCol In dt.DataCols

nr(dc.name) = dr(dc.name)

dtt.save

zoyong

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

加好友

发短信

等级：三尾狐帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2023/9/30 10:57:00 [只看该作者]

S ELECT b.*, d.采购在途

FROM dbo.YW_采购订单明细 AS b RIGHT OUTER JOIN

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

CONVERT(decimal(18, 0), SUM(入库数量 - 出库数量)) AS 现存数, CONVERT(decimal(18, 0),

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

FROM dbo.V_YW_库存明细 AS a

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

RIGHT OUTER JOIN dbo.ZL_产品资料 AS d ON d.产品编号 = b.产品编号

WHERE (b.订单编号 IS NOT NULL)

新增了红色代码后，错误提示 “对于多个基表不支持动态 SQL 生成。”

[此贴子已经被作者于2023/9/30 12:26:07编辑过]

有点蓝

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

加好友

发短信

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

Post By：2023/10/2 22:56:00 [只看该作者]

或者多表关联的只能用作查询表

zoyong

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

加好友

发短信

等级：三尾狐帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2023/10/6 8:55:00 [只看该作者]

问题1

表事件PrepareEdit代码

Dim rd As String = "数量|机台号|班表数|备注"

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

For Each Nam As String In Names

If e.Table.Cols(e.Table.ColSel).Name = Nam Then

e.cancel = False

Else

e.cancel = True

End If

为啥只有备注列可编辑，其他列都不能编辑

问题2

cmd.CommandText = "Se lect DISTINCT 产品编号 * From {V_YW_销售订单明细加库存} Where 客户编号 ='" & Tables("销售订单_table1").Current("客户编号") & "'"

红色代码无效，想加载产品编号不重复的值

[此贴子已经被作者于2023/10/6 12:39:59编辑过]

有点蓝

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

加好友

发短信

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

Post By：2023/10/7 8:45:00 [只看该作者]

1、rd里的列都可以编辑？

Dim rd As String = "数量|机台号|班表数|备注"

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

dim b as boolean = true

For Each Nam As String In Names

If e.col.Name = Nam Then

b=false

exit for

End If

e.cancel = b

2、

cmd.CommandText = "Select DISTINCT 产品编号 From {V_YW_销售订单明细加库存} Where 客户编号 ='" & Tables("销售订单_table1").Current("客户编号") & "'"

zoyong

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

加好友

发短信

等级：三尾狐帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2023/10/7 9:43:00 [只看该作者]

cmd.CommandText = "Se lect DISTINCT 产品编号 From {V_YW_销售订单明细加库存} Where 客户编号 ='" & Tables("销售订单_table1").Current("客户编号") & "'"

加载不重复的产品编号，又想显示全部列

有点蓝

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

加好友

发短信

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

Post By：2023/10/7 9:58:00 [只看该作者]

这种需要做复合查询

cmd.CommandText = "select a.* from {V_YW_销售订单明细加库存} as a inner join (Select 产品编号,max([_identify]) as id From {V_YW_销售订单明细加库存} Where 客户编号 ='" & Tables("销售订单_table1").Current("客户编号") & "' group by 产品编号) as b on a.[_identify] = b.[id]"

zoyong

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

加好友

发短信

等级：三尾狐帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2023/10/9 7:11:00 [只看该作者]

窗口有一个控件Label，能否模拟按键，按下后执行里面的代码

PerformClick这功能不行

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

总数 73 上一页 1 2 3 4 5 6 7 8 下一页

主题：接口上报，帮忙指导一下