此主题相关图片如下：01.jpg
该表的DataColChanged代码
Dim cp As String = e.DataRow("产品名称")
Dim lx As String = e.DataRow("类型")
Dim ys As String = e.DataRow("叶数")
Dim zj As String = e.DataRow("直径")
Dim lj As String = e.DataRow("螺距")
Dim gnxh As String = e.DataRow("国内型号")
Dim gwxh As String = e.DataRow("国外型号")
Dim c1 As String
Dim c2 As String
Dim c3 As String
Dim c4 As String
Dim Values() As String
Select Case e.DataCol.Name
Case "产品名称"
If cp.IndexOf("-") >= 0 Then
Values = cp.split("-")
Dim x As Integer = Values.Length
If x = 2 Then
c1 = Values(0)
c2 = Values(1)
If c2.StartsWith("S") = True Then
gnxh = c1 & "-s"
ElseIf c2.StartsWith("P") = True Then
gnxh = c1 & "-p"
ElseIf c2.StartsWith("SP") = True OrElse c2.StartsWith("PS") = True Then
gnxh = c1 & "-SP"
Else
gnxh = c1
End If
ElseIf x = 3 Then
c1 = Values(0)
c2 = Values(1)
c3 = Values(2)
ElseIf x = 4 Then
c1 = Values(0)
c2 = Values(1)
c3 = Values(2)
c4 = Values(3)
End If
End If
End Select
加好友 
发短信
Post By：2017/9/9 10:16:00 [只看该作者]
