- 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)
-- 发布时间：2018/12/10 20:44:00
-- 保存并更新
把窗口1_Table1查询缴学费信息，保存到缴餐费表里，并已有信息更新，请老师指教，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目19.zip |
-- 发布时间：2018/12/10 20:49:00
--
没看懂
-- 发布时间：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.saveNext
-- 发布时间：2018/12/10 21:18:00
--
谢谢