详细错误信息:
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据
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)
Next
Next
dtt.save
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编辑过]
问题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编辑过]
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
Next
e.cancel = b
2、
cmd.CommandText = "Select DISTINCT 产品编号 From {V_YW_销售订单明细加库存} Where 客户编号 ='" & Tables("销售订单_table1").Current("客户编号") & "'"
窗口有一个控件Label,能否模拟按键,按下后执行里面的代码
PerformClick这功能不行