Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If cb1.value <>"" Then
Dim Result As DialogResult
Result = MessageBox.Show("是否从所选手册编号拷贝一份草稿? 并且覆盖当前的草稿?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim dr As DataRow
dr=DataTables("customBOMtitle").SQLFind("手册编号='" & cb1.value & "'")
Dim dr2 As DataRow
dr2= DataTables("customBOMtitle").SQLFind("手册编号 = 'Draft' or 手册编号 is null")
If dr2 Is Nothing Then
dr2= DataTables("customBOMtitle").addnew
End If
For Each dc As DataCol In DataTables("customBOMtitle").DataCols
If dc.Name <> "attachloc" Then
dr2(dc.Name) = dr(dc.Name)
End If
If dc.Name = "手册编号" Then
dr2(dc.Name) = "Draft"
End If
Next
dr2.save()
End If
End If
当dr2不为空，不是新增的行的时候。运行到dr2。save会报错。为何？
加好友 
发短信
Post By：2019/5/29 20:39:00 [只看该作者]
