例子偶尔才能传得上去,今天我按照步骤已经传了10次了
![图片点击可在新窗口打开查看](http://桌面//QQ图片20150606114225.png)
,就是传不上了.
链接里有例子的,没毒的.可放心下载.另外我有修改了下程序,不知道还有什么问题,请大侠帮我指点下!谢谢
Select Case e.DataCol.name
Case "流水号"
Dim dr As DataRow = DataTables("检验记录").Find("流水号 = '" & e.OldValue & "'")
If dr Is Nothing And dr("提交") = 1 Then
dr = DataTables("检验记录").AddNew()
dr("流水号") = e.DataRow("流水号")
dr("送货类别") = e.DataRow("类别")
dr("厂商") = e.DataRow("厂商")
dr("零件编号") = e.DataRow("零件编号")
dr("来货数量") = e.DataRow("来货数量")
dr("收货人") = e.DataRow("接收人")
dr("接货时间")=Date.now
dr("处理状态")="待处理"
Else
dr("流水号") = e.DataRow("流水号")
End If
Case "流水号","送货类别","厂商","零件编号","来货数量","收货人"
Dim dr As DataRow = DataTables("检验记录").Find("流水号 = '" & e.DataRow("流水号") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select