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


  共有9534人关注过本帖树形打印复制链接

主题：接口上报，帮忙指导一下
帅哥哟，离线，有人找我吗？
有点蓝
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：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.装箱数) +
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7747 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/2/13 9:25:00 [只看该作者]

Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Insert Into 订单 (客户, 日期, 订单编号) Values(?,?,?)"
cmd.Parameters.Add("@日期","01")
cmd.Parameters.Add("@客户",Date.Today)
cmd.Parameters.Add("@p",100)
cmd.ExecuteNonQuery


有下面这样的删除记录，表名是生产入库，现在想还原数据，没思路啊

RowNum=5|创建人=陈佳辉|创建日期=2023-02-06 11:08:36|编辑人=陈佳辉|编辑日期=2023-02-06 11:08:36|编号=SCRK230123|入库日期=2023-02-06|仓库=原料仓|类型=生产入库|备注=|经手人=陈佳辉|经手人编号=182|审核=未审核|审核人=|审核人编号=|审核日期=00:00:00|创建人编号=007|数量合计=70|金额合计=0|件数合计=70|品种合计=3|年份=2023|月份=02|年月=202302|核销标志=|作废标志=|操作日志=|
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7747 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/2/13 10:07:00 [只看该作者]

做了一个删除记录表，主要是有多个表，列名不一样
现在是单个还原可以实现，多种表格，不同的列名和列数量

要用到for each
[此贴子已经被作者于2023/2/13 10:07:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/13 10:18:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7747 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/3/13 12:33:00 [只看该作者]

<出库明细,-9>

Excel报表打印，这个明细行，能否动态生成
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/3/13 13:33:00 [只看该作者]

怎么个动态法

 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7747 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/6/17 17:15:00 [只看该作者]

Dim spxx As String = “得力7101固体胶(品牌:得力/deli;型号:71;颜色)”

spxx = spxx.TrimEnd("(品牌:","品牌:")

红色代码无效，求解


最终结果   spxx = 得力7101固体胶
[此贴子已经被作者于2023/6/17 17:15:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106242 积分：540333 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/6/17 17:35:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7747 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/8/16 14:03:00 [只看该作者]

Dim c md As New SQ LCommand
Dim dt,dtt As DataTable
c md.Co nnecti
c md.Co mmandText = "S ELECT * From {JY_投标立项}"
dt = c md.ExecuteReader()
c md.Co nnecti
c md.Co mmandText = "S ELECT * From {JY_投标立项}"
dtt = c md.ExecuteReader(True)
Dim nr As DataRow
For Each dr As DataRow In dt.DataRows
    If dtt.Find("立项编号 = '" & dr("立项编号") & "'") Is Nothing Then
        nr = dtt.AddNew()
        For Each dc As DataCol In dt.DataCols
            nr(dc.name) = dr(dc.name)
            nr.Save
        Next
    Else
        nr = dtt.Find("立项编号 = '" & dr("立项编号") & "'")
        For Each dc As DataCol In dt.DataCols
            nr(dc.name) = dr(dc.name)
            nr.Save
        Next
    End If
Next

跨数据库同步异常
 回到顶部
总数 73 上一页 1 2 3 4 5 6 7 8 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询