另一个按钮为
Dim ary() As String = {"庆一二四", "一二四列"}
For Each tn As String In ary
DataTables(tn).StopRedraw
For Each dc As DataCol In DataTables(tn).DataCols
If dc.Name.StartsWith("庆") AndAlso dc.name.Length = 7 Then
Dim str As String = dc.Name.Replace("庆", "")
Dim idx As Integer = 1
For Each r As Row In Tables(tn).rows
If str.IndexOf(r("一")) >= 0 AndAlso str.IndexOf(r("二")) >= 0 AndAlso str.IndexOf(r("四")) >= 0 Then
r(dc.name) = "√"
idx = 1
Else
r(dc.name) = idx
idx = idx + 1
End If
Next
End If
Next
DataTables(tn).ResumeRedraw
Next