Dim s As String = DataTables("流水记录表").GetComboListString("单位","类型 = '生产' ")Dim i As Integer = s.Length - s.Replace("|","").Length + 1
MessageBox.Show(i)