If e.DataCol.name = "产品型号" Then
If e.NewValue = "" Then
e.DataRow("产品_参数A") = Nothing
e.DataRow("产品_参数B") = Nothing
e.DataRow("产品_参数C") = Nothing
e.DataRow("产品_参数D") = Nothing
e.DataRow("产品_参数E") = Nothing
e.DataRow("产品_参数F") = Nothing
e.DataRow("产品_参数G") = Nothing
e.DataRow("产品_参数H") = Nothing
'e.DataRow("产品_参数I") = Nothing
Else
Dim ary() As String = e.newvalue.split("-")
e.DataRow("产品_参数A") = ary(0)(0)
e.DataRow("产品_参数B") = ary(0)(1)
e.DataRow("产品_参数C") = ary(0)(2)
e.DataRow("产品_参数D") = ary(0)(3)
e.DataRow("产品_参数E") = ary(0).substring(4,2)
e.DataRow("产品_参数F") = ary(0).substring(6,2)
e.DataRow("产品_参数G") = ary(0).substring(8,2)
e.DataRow("产品_参数H") = ary(1)
End If
End If
为什么把这个写到按钮里面不可以呢，感谢 感谢
加好友 
发短信
Post By：2018/5/30 16:18:00 [显示全部帖子]
此主题相关图片如下：qq截图20180530161458.png