以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 保存并更新 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128575) |
||||
-- 作者:Liangcai -- 发布时间:2018/12/10 20:44:00 -- 保存并更新 把窗口1_Table1查询缴学费信息,保存到缴餐费表里,并已有信息更新,请老师指教,谢谢!
|
||||
-- 作者:y2287958 -- 发布时间:2018/12/10 20:49:00 -- 没看懂 |
||||
-- 作者:Liangcai -- 发布时间:2018/12/10 21:11:00 -- 把窗口1_Table1行增加到缴餐费表里,缴餐费表已经有的更新,保存按钮代码: Dim nms() As String = {"学期","班级","身份证号","缴费日期","缴费金额","收款人"} ??? [此贴子已经被作者于2018/12/10 21:12:33编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2018/12/10 21:11:00 -- Dim nms() As String = {"学期","班级","身份证号","缴费日期","缴费金额","收款人"} Dim t As Table = e.Form.controls("Table1").Table For n As Integer = 1 To t.Rows.Count -1 Dim dr As DataRow = DataTables("缴餐费").SQLFind("学期 = \'20181\' And 身份证号 = \'" & t.Rows(n)("身份证号") & "\'") If dr Is Nothing Then \'如果不存在同编号的订单 dr = DataTables("缴餐费").AddNew() End If For Each c As String In nms dr(c) = t.Rows(n)(c) Next dr.saveNext
|
||||
-- 作者:Liangcai -- 发布时间:2018/12/10 21:18:00 -- 谢谢 |