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

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

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

有点蓝

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

加好友

发短信

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

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

余数使用%：https://www.baidu.com/baidu?ie=UTF-8&word=SqlServer%20%E4%BD%99%E6%95%B0

CONVERT(nvarchar(10), Floor(c.现存数 / b.装箱数)) + '件' + CONVERT(nvarchar(10), c.现存数 % b.装箱数) +

有点蓝

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

加好友

发短信

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

Post By：2023/2/13 9:59:00 [显示全部帖子]

dim s as string = "RowNum=5|创建人=陈佳辉|创建日期=2023-02-.........."

dim ss() as string = s.split("|")

Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Insert Into 生产入库 (编号, 入库日期, ......) Values(?,?,......)"
cmd.Parameters.Add("@编号",ss(5).replace("编号=",""))

cmd.Parameters.Add("@入库日期",ss(6).replace("入库日期=",""))
……
cmd.ExecuteNonQuery

有点蓝

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

加好友

发短信

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

Post By：2023/2/13 10:18:00 [显示全部帖子]

表名和列名都从日志里提取即可。

有点蓝

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

加好友

发短信

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

Post By：2023/3/13 13:33:00 [显示全部帖子]

怎么个动态法

有点蓝

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

加好友

发短信

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

Post By：2023/6/17 17:35:00 [显示全部帖子]

spxx = spxx.split("(")(0)

有点蓝

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

加好友

发短信

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

Post By：2023/8/16 14:10:00 [显示全部帖子]

什么异常，什么错误？

有点蓝

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

加好友

发短信

等级：超级版主帖子：107035 积分：544406 威望：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

有点蓝

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

加好友

发短信

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

Post By：2023/10/2 22:56:00 [显示全部帖子]

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107035 积分：544406 威望：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("客户编号") & "'"

有点蓝

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

加好友

发短信

等级：超级版主帖子：107035 积分：544406 威望：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]"

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

总数 39 上一页 1 2 3 4 下一页

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