操作 DataTable

		操作 DataTable
 
let table = new System.Data.DataTable()
 
table.Columns.Add("Id", System.Int16().GetType())
//table.Columns.Add("Id", System.Type.GetType("System.String"))
table.Columns.Add("XM", System.Type.GetType("System.String"))
table.Rows.Add(1,"100") www.zzzyk.com
table.Rows.Add(2,"200")
table.Rows.Add(3,300)
table.Rows.Add(5,500)
 
 
// 原始的二维序列格式
let q = query { for r in table.Select() do yield  r.ItemArray  }     
 
 
// 打印出二维序列                    
q |> Seq.iter ( fun i -> printfn "%A" i )
 
q |> Seq.iter(fun n -> 
                  n |> Seq.iter(fun i -> printf "%A," i); printfn ""
             )
// 输出成普通的二维文本格式
let q2 = query {
            for r in table.Select() do 
                let t = 
                    r.ItemArray |> Seq.map    ( fun i -> i.ToString()  ) 
                                |> Seq.reduce ( fun a b -> a + "," + b )
                yield t
         } 
         |> String.concat ("\r\n")
操作 DataTable
 
let table = new System.Data.DataTable()
table.Columns.Add("Id", System.Int16().GetType())
//table.Columns.Add("Id", System.Type.GetType("System.String"))
table.Columns.Add("XM", System.Type.GetType("System.String"))
table.Rows.Add(1,"100")
table.Rows.Add(2,"200")
table.Rows.Add(3,300)
table.Rows.Add(5,500)
 
// 原始的二维序列格式
let q = query { for r in table.Select() do yield  r.ItemArray  }     
 
// 打印出二维序列                    
q |> Seq.iter ( fun i -> printfn "%A" i )
 
q |> Seq.iter(fun n -> 
                  n |> Seq.iter(fun i -> printf "%A," i); printfn ""
             )
// 输出成普通的二维文本格式
let q2 = query {
            for r in table.Select() do 
                let t = 
                    r.ItemArray |> Seq.map    ( fun i -> i.ToString()  ) 
                                |> Seq.reduce ( fun a b -> a + "," + b )
                yield t
         } 
         |> String.concat ("\r\n")
       //这一句也可以写成
       //|> Seq.reduce ( fun a b -> a + "\r\n" + b )
 
// 打印出文本
printfn "%A" q2
 
 
 
// 打印出文本
printfn "%A" q2
						
		
	

补充：综合编程 , 其他综合 ,

上一个：实现类似QQ自拍头像的功能（demo源码）
下一个：伤害随机测试的整理