我的代码是这样的。打问号的就是不知道怎么写的地方
If e.DataCol.Name = "料号" Then
Dim rw1,rw2 As Integer
Dim item1, item2 As DataRow
rw1= e.DataRow.???????
item1 = DataTables("料号属性表").Find("[料号] ='" & Tables("工单制作表").rows(rw1)("料号") & "'")
rw2= rw1 + 1
item2 = DataTables("料号属性表").Find("[料号] ='" & Tables("工单制作表").rows(rw2)("料号") & "'")
Dim checker As Boolean = True
For Each dc As DataCol In DataTables("料号属性表").DataCols
If item1.isnull(dc) Or item2.isnull(dc) Then
checker=False
End If
Next
If checker =False Then
messagebox.Show("第 " & rw1+1 & " 和第 " & rw2+1 & " 行料号存在缺失的属性信息,请补充完整")
Else
Dim c1 As Single
If item1("载体类型")=item2("载体类型") Then
c1 = 0
Else
If item1("卷曲模式")= "pet" Then
If item2("卷曲模式")= "pet" Then
c1=Tables("changover参数表").Rows(0)("时间")
ElseIf item2("卷曲模式")= "paper" Then
c1=Tables("changover参数表").rows(1)("时间")
ElseIf item2("卷曲模式")= "ss" Then
加好友 
发短信
Post By：2016/6/30 19:28:00 [显示全部帖子]
