If e.DataCol.Name = "第一列" Then Dim str() As String = {"已结账","结账中","未结账"} Dim drs As List (Of String) = DataTables("表B").GetValues("第二列","第一列 = '" & e.DataRow("第一列") & "' And 第一列 Is Not Null And 第二列 Is Not Null") For Each s As String In str For Each dr As String In drs If s = dr Then e.DataRow("第二列") = s Return End If Next Next End If
加好友 
发短信
Post By：2013/10/9 14:51:00 [只看该作者]
