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
标签:aa,VB,C#,topics,那摩,佛诞,藜芦,圣诞,new 来源: https://blog.csdn.net/xianfajushi/article/details/88913900