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

2021-05-06 21:33:01 阅读：170 来源： 互联网

也就几句代码完成的事。使用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

标签：aa,VB,C#,topics,那摩,佛诞,藜芦,圣诞,new
来源： https://blog.csdn.net/xianfajushi/article/details/88913900

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

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