可以取出的
用在select里也试了一下，同样正确！
If e.DataCol.Name = "示例" And e.DataRow.IsNull("示例") = False Then
Dim s1 = left(e.DataRow("示例"),2)
Dim drs1 As List(of DataRow) = DataTables("表A").Select("示例 like'" & s1 & "*'")
e.DataRow("取左2") = s1
e.DataRow("左2同数") = drs1.Count
Dim bs() As Byte = System.Text.Encoding.GetEncoding("GB2312").GetBytes(e.DataRow("取左2"))
If bs(bs.length - 1) = 63 Then
Dim s2 = left(e.DataRow("示例"),3)
Dim drs2 As List(of DataRow) = DataTables("表A").Select("示例 like'" & s2 & "*'")
e.DataRow("取左2") = s2
e.DataRow("左2同数") = drs2.Count
End If
End If
加好友 
发短信
Post By：2022/1/18 21:42:00 [显示全部帖子]
此主题相关图片如下：无标题.png
