表达式:IIF(len(Convert([A列],'System.String')) >= 6,SubString(Convert([A列],'System.String'),1,6),[A列])代码:DataColChanged事件
If e.DataCol.Name = "A列" AndAlso e.DataRow.IsNull("A列") = False Then
If CStr(e.DataRow("第二列")).Length >= 6
e.DataRow("B列") = CStr(e.DataRow("第A列")).SubString(0,6)
Else
e.DataRow("B列") = e.DataRow("A列")
End If
End If