兄弟 我这个是那里出了问题啊!能帮我看看吗 ?谢谢
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim c0 As WinForm.CheckBox = Forms("产品尺寸制作").Controls("CheckBox01")
Dim c1 As WinForm.CheckBox = Forms("产品尺寸制作").Controls("CheckBox02")
Dim c2 As WinForm.CheckBox = Forms("产品尺寸制作").Controls("CheckBox03")
Dim c3 As WinForm.CheckBox = Forms("产品尺寸制作").Controls("CheckBox04")
Dim s As String = "肩宽/胸围/衣长,肩宽/胸围/肩宽,腰围/裤长/臀围/裤边围"
If e.Table.Current.IsNull("淘宝档案_类型") = False
Dim i As Integer = "T恤,衬衫,短裤".IndexOf(e.Table.Current("淘宝档案_类型"))
If i >= 0
c0.Text = s.Split(",")(i).Split("/")(0)
c1.Text = s.Split(",")(i).Split("/")(1)
c2.Text = s.Split(",")(i).Split("/")(2)
c3.Text = s.Split(",")(i).Split("/")(3)
Else
c0.Text = Nothing
c1.Text = Nothing
c2.Text = Nothing
c3.Text = Nothing
End If
Else
c0.Text = Nothing
c1.Text = Nothing
c2.Text = Nothing
c3.Text = Nothing
End If