- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 复制问题请指教--开发版 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46251)
-- 发布时间：2014/2/19 23:23:00
-- 复制问题请指教--开发版
订单完成后将复制到积分表,如果订单表中的部门信息有变化.保存时将会重复复制已有订单信息.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2014/2/19 23:29:00
--
你先参考这个例子改一下，复制之前，先判断一下是否存在了记录
-- 发布时间：2014/2/19 23:38:00
--
如下复制代码
e.DataRow("审核")= True
Dim nma() As String = { "订单号","部门", "编号","品名", "单价","日期","数量","金额"}
Dim nmb() As String = { "订单号","部门", "编号","品名", "单价","日期","数量","积分"}
For Each nm As String In nma
If e.DataRow.Isnull(nm) Then
messagebox.Show("请输入" & nm & "!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
End If
Next
Dim dr As DataRow = DataTables("积分").Find("订单号 = \'" & e.DataRow("订单号") & "\'")
If dr Is Nothing Then
dr = DataTables("积分").AddNew
End If
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next