以文本方式查看主题

-  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查询缴学费信息,保存到缴餐费表里,并已有信息更新,请老师指教,谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目19.zip


--  作者:y2287958
--  发布时间:2018/12/10 20:49:00
--  
没看懂
--  作者:Liangcai
--  发布时间:2018/12/10 21:11:00
--  

把窗口1_Table1行增加到缴餐费表里,缴餐费表已经有的更新,保存按钮代码:

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.Current("身份证号") &"\'")
    If dr Is Nothing Then  \'如果不存在同编号的订单
        dr =  DataTables("缴学费").AddNew(n)

???
    End If
Next

[此贴子已经被作者于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.save
Next

--  作者:Liangcai
--  发布时间:2018/12/10 21:18:00
--  
谢谢