老师，
订单录入窗口的保存按钮代码如下：但是不管有没有重复的号，都会提醒：此序号已存在。
Dim t As Table = e.Form.Controls("Table2").Table
Dim 供应商 = e.Form.Controls("供应商").Text
Dim 采购订单编号 = e.Form.Controls("采购订单编号").Text
Dim 联络人 = e.Form.Controls("联络人").Text
Dim 采购员 = e.Form.Controls("采购员").Text
Dim 订单日期 = e.Form.Controls("订单日期").Text
Dim 供应商传真 = e.Form.Controls("供应商传真").Text
Dim 申请部门 = e.Form.Controls("申请部门").Text
Dim 月结方式 = e.Form.Controls("月结方式").Text
Dim 币种 = e.Form.Controls("币种").Text
Dim 税率 = e.Form.Controls("税率").Text
Dim 审批人 = e.Form.Controls("审批人").Text
Dim 确认人 = e.Form.Controls("确认人").Text
Dim 收货人 = e.Form.Controls("收货人").Text
For Each r As Row In t.Rows
r("供应商") = 供应商
r("采购订单编号") = 采购订单编号
r("联络人") = 联络人
r("采购员") = 采购员
r("订单日期") = 订单日期
r("供应商传真") = 供应商传真
r("申请部门") = 申请部门
r("月结方式") = 月结方式
r("币种") = 币种
r("税率") = 税率
r("审批人") = 审批人
r("确认人") = 确认人
r("收货人") = 收货人
Next
Dim dr As DataRow
dr = DataTables("订单录入窗口_Table2").Find("采购订单编号 = '" & 采购订单编号 & "'")
If dr IsNot Nothing Then
MessageBox.Show("此序号已经存在!")
Else
For Each r As Row In t.Rows
r("采购订单编号") = 采购订单编号
Next
End If
加好友 
发短信
Post By：2017/4/7 10:22:00 [显示全部帖子]
此主题相关图片如下：000.png