贴一段代码，出什么错又不说
If e.DataCol.Name = "入库" AndAlso e.DataRow("入库") = True Then '如果列名是入库且入库为真
Dim cz As DataRow '在出入库表中查找与所选型号一致的行
cz= DataTables("出入库").Find("[型号] = '" & e.DataRow("型号") & "'")
If cz Is Nothing '没找到就入库
Dim nma() As String = {"项目名称","产品名称","型号","规格","单价","供应商"} '采购明细表数据来源列
Dim nmb() As String = {"项目名称","产品名称","型号","规格","单价","供应商"} '出入库表数据接收列
Dim dr As DataRow = DataTables("出入库").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
Else '否则提出警告并返回
MessageBox.Show("此产品已在库中!", "警告", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
End If
加好友 
发短信
Post By：2014/7/20 10:05:00 [显示全部帖子]
