主题：表达式转换成代码

If e.DataCol.name = "aaa" Then
    Dim ary() As String = {"1", "2", "3", "4", "5", "6"}
    If array.IndexOf(ary, e.DataRow("一")) >= 0 AndAlso array.IndexOf(ary, e.DataRow("二")) >= 0 AndAlso array.IndexOf(ary, e.DataRow("三")) >= 0 Then
        e.DataRow("aaa") = "√"
    Else
        e.DataRow("aaa") = Nothing
    End If
   
End If

代码写到datacolchanged事件

http://www.foxtable.com/webhelp/scr/1445.htm

If e.DataCol.name = "一" orelse e.DataCol.name = "二" orelse e.DataCol.name = "三" Then
    Dim ary() As String = {"1", "2", "3", "4", "5", "6"}
    If array.IndexOf(ary, e.DataRow("一")) >= 0 AndAlso array.IndexOf(ary, e.DataRow("二")) >= 0 AndAlso array.IndexOf(ary, e.DataRow("三")) >= 0 Then
        e.DataRow("aaa") = "√"
    Else
        e.DataRow("aaa") = Nothing
    End If   
End If

 写到datacolchanged事件。

 SubString([列A],2,1) 写成 e.DataRow("列A").SubString(1,1)