猜一下：
Dim d1 As String = e.Form.Controls("机房名称").Text
Dim t11 As String = e.Form.Controls("设备名称").Text
Dim t12 As String = e.Form.Controls("设备型号").Text
Dim t13 As String = e.Form.Controls("设备编号").Text
Dim c1 As String = e.Form.Controls("板件槽位1").Text
Dim t1 As String = e.Form.Controls("板件型号1").Text
Dim nd2 As DataRow = DataTables("机房设备板件表").Find("机房名称 = '" & d1 & "' and 设备名称 = '" & t11 & "' and 设备型号 = '" & t12 & "' and 设备编号 = '" & t13 & "'and 板件槽位 = '" & c1 & "'and 板件型号 = '" & t1 & "'")
If nd2 Is Nothing Then
nd2 = DataTables("机房设备板件表").AddNew()
end if
If c2 > "" And t2 > "" Then
nd2("机房名称") = d1
nd2("设备名称") = t11
nd2("设备型号") = t12
nd2("设备编号") = t13
nd2("板件槽位") = c1
nd2("板件型号") = t1
End If
加好友 
发短信
Post By：2014/9/1 22:08:00 [显示全部帖子]
