这段代码有问题,多了一个 _
Dim strModel As String
strModel = e.Form.Controls("cmb_OperationColumn_Serial").text + "-"
strModel = strModel + split(e.Form.Controls("txt_ButtonSpecification").text, "-")(0)
strModel = strModel + split(e.Form.Controls("txt_AmmeterSpecification").text, "-")(0)
strModel = strModel + split(e.Form.Controls("txt_LampSpecification").text, "-")(0)
strModel = strModel + split(e.Form.Controls("txt_BreakerSpecification").text, "-")(0)
e.Form.Controls("txt_Model").Text = strModel + vbcrlf _
+ " " + e.Form.Controls("txt_ButtonSpecification").text + vbcrlf _
+ " " + e.Form.Controls("txt_AmmeterSpecification").text + vbcrlf _
+ " " + e.Form.Controls("txt_LampSpecification").text + vbcrlf _
+ " " + e.Form.Controls("txt_BreakerSpecification").text + vbcrlf