- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码哪里错了，求高手！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106462)
-- 发布时间：2017/9/9 10:16:00
-- [求助]代码哪里错了，求高手！
此主题相关图片如下：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
-- 发布时间：2017/9/9 10:47:00
--
看不出什么问题。运行代码有什么问题？
如果不计算，重置一下产品名称列。
-- 发布时间：2017/9/9 10:50:00
--
以下是引用有点蓝在2017/9/9 10:47:00的发言：
看不出什么问题。运行代码有什么问题？
看不出什么问题。运行代码有什么问题？
如果不计算，重置一下产品名称列。
重置了，还是不行啊
-- 发布时间：2017/9/9 11:27:00
--
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
e.DataRow("国内型号") = gnxh
ElseIf x = 3 Then
-- 发布时间：2017/9/9 13:12:00
--
FCHGANXIE