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


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

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


加好友 发短信
等级：三尾狐 帖子：653 积分：7759 威望：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|核销标志=|作废标志=|操作日志=|
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7759 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/2/13 10:07:00 [显示全部帖子]

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

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


加好友 发短信
等级：三尾狐 帖子：653 积分：7759 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/3/13 12:33:00 [显示全部帖子]

<出库明细,-9>

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


加好友 发短信
等级：三尾狐 帖子：653 积分：7759 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7759 威望：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

跨数据库同步异常
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7759 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/8/16 15:05:00 [显示全部帖子]

详细错误信息：
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7759 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7759 威望：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
        Next

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


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

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


[此贴子已经被作者于2023/10/6 12:39:59编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7759 威望：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("客户编号") & "'"


加载不重复的产品编号，又想显示全部列
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7759 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/10/9 7:11:00 [显示全部帖子]

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

PerformClick这功能不行
 回到顶部
总数 37 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询