Dim dr1 As DataRow = DataTables("光缆纤芯台帐表").Find("机房名称 = '" & e.Form.Controls("机房名称").Text & "' and 光缆名称 = '" & e.Form.Controls("光缆名称").Text & "'and 纤芯编号 = 01 ") If dr1 IsNot Nothing Then If dr1("板盘端子名称").Length >= 5 Then e.Form.Controls("ODF盘_01").Text = dr1("板盘端子名称").SubString(0, 5) End If End If