- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 快捷右键增加的行不能执行如下的DataRowAdding命令呢,按钮增加是可以的 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137362)
-- 发布时间：2019/7/4 10:28:00
-- 快捷右键增加的行不能执行如下的DataRowAdding命令呢,按钮增加是可以的
快捷右键增加的行不能执行如下的DataRowAdding命令呢,按钮增加是可以的,除非是用按钮增加一行以后,再用快捷右键增加是可以的
此主题相关图片如下：新增行按钮和快捷新增行同步呢.png
此主题相关图片如下：新增行效果.png
Dim gc As String = Tables("入库单列表").Current("入库编号")
Dim val As String
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Select 供应商编码,供应商简称,入库单号,入库日期,签收人,录入人,录入日期,入库编号 Fro m {入库单列表} Where 入库编号 = \'"& gc & "\'"
Dim Values = cmd.ExecuteValues
If Values.Count > 0 Then
e.DataRow("供应商编码") = Values("供应商编码")
e.DataRow("供应商简称") = Values("供应商简称")
e.DataRow("入库单号") = Values("入库单号")
e.DataRow("入库日期") = Values("入库日期")
e.DataRow("签收人") = Values("签收人")
e.DataRow("录入人") = Values("录入人")
e.DataRow("录入日期") = Values("录入日期")
e.DataRow("入库编号") = Values("入库编号")
End If
-- 发布时间：2019/7/4 10:43:00
--
按钮、菜单、DataRowAdding代码都发上来看看
-- 发布时间：2019/7/4 11:02:00
-- 回复：（有点蓝）按钮、菜单、DataRowAdding代码都发上...
按钮代码:
Tables("入库单列表").Current.Save
Tables("入库单录入_table1").AddNew()
窗口SQLtable表的DataRowAdding代码:
Dim gc As String = Tables("入库单列表").Current("入库编号")
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Select 供应商编码,供应商简称,入库单号,入库日期,签收人,录入人,录入日期,入库编号 Fro m {入库单列表} Where 入库编号 = \'"& gc & "\'"
Dim Values = cmd.ExecuteValues
If Values.Count > 0 Then
e.DataRow("供应商编码") = Values("供应商编码")
e.DataRow("供应商简称") = Values("供应商简称")
e.DataRow("入库单号") = Values("入库单号")
e.DataRow("入库日期") = Values("入库日期")
e.DataRow("签收人") = Values("签收人")
e.DataRow("录入人") = Values("录入人")
e.DataRow("录入日期") = Values("录入日期")
e.DataRow("入库编号") = Values("入库编号")
End If
菜单代码是系统默认的:
此主题相关图片如下：菜单代码.png
-- 发布时间：2019/7/4 11:30:00
--
把快捷菜单的代码改为和按钮一样的代码。