- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- new SQLCommand 问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176338)
-- 发布时间：2022/4/9 7:50:00
-- new SQLCommand 问题
代码在txt文档里
现在使用的命令 想测试表单新加了一行数据
在项目全局代码的DataRowAdding事件里面 有以下代码
e.DataRow("日期") = Date.Today()
e.DataRow("创建人") = User.Name
如何在用 new SQLCommand 写入数据的时候 启用这个代码 自动在字段中填写数据
[此贴子已经被作者于2022/4/9 7:50:56编辑过]
-- 发布时间：2022/4/9 9:34:00
--
cmd.CommandText = "Select * From {出库} Where [_Identify] Is null" \'生成一个空出库表
ckd = cmd.ExecuteReader(True) \'记得将参数设置为True
Dim dr As DataRow = ckd.AddNew() \'增加出库单
dr("日期") = Date.Today()
dr("创建人") = User.Name
dr.save
-- 发布时间：2022/4/9 9:54:00
--
如果是出库单填写完 数量以后
需要更改 库存表里的出库数量,是否可以通过事件解决.
例如下面这个代码 学员签到以后,会在学员信息表你 统计签到数量.
Dim pr1 As DataRow
pr1 = DataTables("学员管理_学员信息表").Find("学号 = \'" & e.DataRow.OriginalValue("学号") & "\'")
If pr1 IsNot Nothing Then
pr1("消耗课时") = e.DataTable.compute("count(学号)","学号 = \'" & e.DataRow.OriginalValue("学号") & "\' and 签到状态 = \'签到\' And 签到类型 = \'正常\'")
pr1("账户消耗") = e.DataTable.compute("sum(课时标准)","学号 = \'" & e.DataRow.OriginalValue("学号") & "\' and 签到状态 = \'签到\' And 签到类型 = \'正常\'")
pr1("赠课消耗") = e.DataTable.compute("count(学号)","学号 = \'" & e.DataRow.OriginalValue("学号") & "\' and 签到状态 = \'签到\' And 签到类型 = \'赠课\'")
pr1("年卡上课") = e.DataTable.compute("count(学号)","学号 = \'" & e.DataRow.OriginalValue("学号") & "\' and 签到状态 = \'签到\' And 签到类型 = \'年卡\'")
pr1("欠课数量") = e.DataTable.compute("count(学号)","学号 = \'" & e.DataRow.OriginalValue("学号") & "\' and 签到状态 = \'签到\' And 签到类型 = \'欠课\'")
pr1("清欠课") = e.DataTable.compute("count(学号)","学号 = \'" & e.DataRow.OriginalValue("学号") & "\' and 签到状态 = \'签到\' And 签到类型 = \'清欠课\'")
pr1("清欠金额") = e.DataTable.compute("sum(课时标准)","学号 = \'" & e.DataRow.OriginalValue("学号") & "\' and 签到状态 = \'签到\' And 签到类型 = \'清欠课\'")
\'pr("请假人数") = e.DataTable.compute("count(签到表编号)","签到表编号 = \'" & e.DataRow("签到表编号") & "\' and 签到状态 = \'请假\'")
\'pr("未到人数") = e.DataTable.compute("count(签到表编号)","签到表编号 = \'" & e.DataRow("签到表编号") & "\' and 签到状态 = \'未到\'")
\'pr("应到人数") = e.DataTable.compute("count(签到表编号)","签到表编号 = \'" & e.DataRow("签到表编号") & "\' and 签到状态 <> \'\'")
pr1.Save
End If
-- 发布时间：2022/4/9 9:58:00
--
如果是指使用SQLCommand ，没有办法触发表事件