请看DataChanged事件中代码。因为第一列中部分需要使用序号排序，其它部分需要用拼音首字母排序。所以，我感觉需要使用数组解决。如果有其它方法解决，也可以的。
Select Case e.DataCol.Name
Case "第一列"
If e.DataRow.IsNull("第一列") Then
e.DataRow("第一列缩写") = Nothing
Else
e.DataRow("第一列缩写") = GetPinYin(e.DataRow("第一列"), 1)
End If
Dim Names() As String = {"甲甲","甲乙","甲丙","甲丁"}
For i As Integer = 0 To Names.Length - 1
e.DataRow("第一列代码") = Format(Array.Indexof(Names,Names(i)),"000") & "-" & e.DataRow("第一列缩写")
'如何编写类似上面这行代码,实现从上面names集合中，根据第一列填入的内容，如“甲甲”、“甲乙”、.......，自动写入对应的顺序号001、002呢？
' msgbox(Array.Indexof(Names,Names(i)))
Next
End Select
[此贴子已经被作者于2018/10/26 14:34:05编辑过]
加好友 
发短信
Post By：2018/10/26 7:59:00 [显示全部帖子]
此主题相关图片如下：1.png