C# VB 数组转DataTable的回复https://bbs.csdn.net/topics/392560517

也就几句代码完成的事。使用LINQ就一句话的事。

        private class 佛诞
        { 
            public string 名称 { get; set; } 
            public int 日期 { get; set; }
            public 佛诞(string 称号, int 诞日)
            { 名称 = 称号; 日期 = 诞日; }
        }
        佛诞[] 佛诞组 = new 佛诞[] { new 佛诞("那摩阿弥陀佛！圣诞", 1117), new 佛诞("那摩地藏王菩萨！圣诞", 729), new 佛诞("那摩地藏王菩萨！圣诞", 730)
            , new 佛诞("那摩释迦牟尼佛！圣诞", 48), new 佛诞("那摩释迦牟尼佛！出家", 28), new 佛诞("那摩释迦牟尼佛！成道", 128), new 佛诞("那摩释迦牟尼佛！涅槃", 215)
            , new 佛诞("那摩观世音菩萨！圣诞", 219), new 佛诞("那摩观世音菩萨！出家", 919), new 佛诞("那摩观世音菩萨！成道", 619), new 佛诞("那摩大势至菩萨！圣诞", 713)
        , new 佛诞("那摩普贤菩萨！圣诞", 221), new 佛诞("那摩文殊师利菩萨！圣诞", 44), new 佛诞("那摩禅宗达摩祖师！圣诞", 105), new 佛诞("那摩慧能禅宗六祖！圣诞", 29), new 佛诞("那摩慧能禅宗六祖！圆寂", 83)
        , new 佛诞("那摩华严菩萨！圣诞", 1229), new 佛诞("那摩药师佛！圣诞", 930), new 佛诞("那摩燃灯古佛！圣诞", 822), new 佛诞("那摩定光佛！圣诞", 16), new 佛诞("那摩弥勒菩萨！圣诞；春节", 11)
        , new 佛诞("那摩福德土地正神！圣诞", 22), new 佛诞("那摩准提菩萨！圣诞", 316), new 佛诞("那摩药王菩萨！圣诞", 428), new 佛诞("那摩伽蓝菩萨！圣诞", 518)
        , new 佛诞("那摩韦驮菩萨！圣诞", 63), new 佛诞("那摩第五殿阎罗天子！圣诞", 18), new 佛诞("那摩帝释天尊！圣诞", 19), new 佛诞("那摩妈祖升仙！重阳节", 729)
        , new 佛诞("那摩妈祖！圣诞", 323), new 佛诞("那摩文昌帝君！圣诞", 23), new 佛诞("那摩第四殿五官王！圣诞", 218), new 佛诞("那摩第六殿卞城王！圣诞", 38)
        , new 佛诞("那摩中岳大帝；后土娘娘！圣诞", 319), new 佛诞("那摩子孙娘娘！圣诞", 320), new 佛诞("那摩第七殿泰山王！圣诞", 327), new 佛诞("那摩地藏王菩萨！圣诞", 729)
        , new 佛诞("佛欢喜日！盂兰盆节", 715), new 佛诞("元宵节！", 115), new 佛诞("端午节", 55), new 佛诞("七夕情人节", 77), new 佛诞("中秋节", 815), new 佛诞("中秋节", 815)
        , new 佛诞("腊八节", 128), new 佛诞("小年", 1223), new 佛诞("除夕", 1230), new 佛诞("道教中元节", 715)};

            DataTable 佛诞组表 = new DataTable("佛诞组");
            佛诞组表.Columns.Add("名称", typeof(string));
            佛诞组表.Columns.Add("日期", typeof(int));
            佛诞组.Select(aa => 佛诞组表.Rows.Add(new object[] { aa.名称, aa.日期 })).ToArray();

 

        void 请问如何查找多个符合条件的值() 
        {
            DataTable aa = new DataTable();
            foreach (string ss in "内码 简拼 品名 成份名 药品类别 规格 配伍禁忌".Split(' '))
                aa.Columns.Add(ss);
            var ff = "47019 RS 人参 人参 人参 支 藜芦;1111 LL 藜芦 藜芦 藜芦 g 人参,党参,玄参,西洋参,细辛;33212 XX 细辛 细辛 细辛 g 藜芦;2222 RS 蚺蛇 蚺蛇 蚺蛇 g 全蝎"
                .Split(';').Select(dd => dd.Split(' ')).ToArray();
            ff.Select(dd => aa.Rows.Add(dd)).ToArray();
            foreach (DataRow kk in aa.Rows)
                电话.Text += string.Join("", kk.ItemArray).Contains(姓名.Text) ?
                    string.Join(" ", kk.ItemArray) : "\r\n";
            MessageBox.Show(电话.Text);
        }

 

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim aa = New DataTable
        For Each ss In "内码 简拼 品名 成份名 药品类别 规格 配伍禁忌".Split(" ")
            aa.Columns.Add(ss)
        Next ss
        For Each ss In "47019 RS 人参 人参 人参 支 藜芦;1111 LL 藜芦 藜芦 藜芦 g 人参,党参,玄参,西洋参,细辛;33212 XX 细辛 细辛 细辛 g 藜芦;2222 RS 蚺蛇 蚺蛇 蚺蛇 g 全蝎".Split(";")
            aa.Rows.Add(ss.Split(" "))
        Next ss
        Dim ts = ""
        Dim dd As DataRow
        For Each dd In aa.Rows
            If String.Join(" ", dd.ItemArray).Contains("RS") Then
                ts += String.Join(" ", dd.ItemArray) + Chr(13) + Chr(10)
            End If
        Next dd
        MessageBox.Show(ts)
    End Sub

End Class