The following syntax converts a DataTable to a Dictionary .

 

in C#

Dictionary<string, string> dicCodes = ds.Tables[0].AsEnumerable()
                                    .ToDictionary<DataRow, string, string>(
                                        row => row.Field<string>("Column1Name"),
                                        row => row.Field<string>("Column2Name")
                                    );

 

in VB.NET

Dim dicCodes As Dictionary(Of String, String) =
    ds.Tables(0).AsEnumerable() _
    .ToDictionary(Of String, String)(
                                        Function(row) row.Field(Of String)("Column1Name"),
                                        Function(row) row.Field(Of String)("Column2Name")
                                    )

 

be the happy Gosu.

woojja ))*

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

반응형
LIST

'.NET' 카테고리의 다른 글

[.NET] DataTable to Dictionary using Linq  (0) 2022.01.14
[.NET] .NET MAUI 를 소개합니다.  (0) 2021.11.26
[.NET] Time Zone Identifiers  (2) 2018.07.24
[.NET] Clone  (0) 2017.05.31
[.NET] Collection was modified; enumeration operation may not execute.  (4) 2017.05.30
[.NET] .NET Core Roadmap  (0) 2017.02.10
Posted by woojja

댓글을 달아 주세요




WorldCup 을 보던 중에 패스 성공율에 대해 보여주는 화면이 나오더라고요...
패스 하는 걸 일일이 카운팅하는 사람들이 있을텐데
이건 그런 패스 카운팅하는 사람들이 쓸 것 같은? 어플입니다. ^^

그냥 TV 만 보느니 한번 만들어 볼까 해서 만들어봤습니다.



그냥 기본적인 문법을 사용한 거라서요...
뭐 건져가실 건 없을 겁니다.

^^'
다음번엔 패스 퍼센티지를 만들어 볼까? ㅋㅋㅋ

대~~애 한민국 짝!짝!~짝!~짝!짝!

필승입니다.

행복한 고수되셔요...

woojja ))*
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

깜빡잊고 실행파일과 소스를 안올렸네요... ㅋㅋ 필요는 없으시겠지만... ^^;
아르헨티나 경기 합니다.
오늘 필승입니다.

대애~~한 민국 짝짝짝짝짝... ^^

    1 Public Class frmCounter

    2 

    3     Dim ActionStack As Stack(Of String)

    4 

    5     Public Sub New()

    6 

    7         ' This call is required by the designer.

    8         InitializeComponent()

    9 

   10         ' Add any initialization after the InitializeComponent() call.

   11         ActionStack = New Stack(Of String)

   12 

   13     End Sub

   14 

   15     Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbBPassFore.Click, pbBPassCross.Click, pbBPassError.Click, pbBCancel.Click, pbRPassFore.Click, pbRPassCross.Click, pbRPassError.Click, pbRCancel.Click

   16         Dim pb As PictureBox = CType(sender, PictureBox)

   17         Dim buttonName As String = pb.Name

   18         Select Case buttonName

   19             Case "pbBPassFore"

   20                 nupBFore.UpButton()

   21             Case "pbBPassCross"

   22                 nupBCross.UpButton()

   23             Case "pbBPassError"

   24                 nupBError.UpButton()

   25             Case "pbRPassFore"

   26                 nupRFore.UpButton()

   27             Case "pbRPassCross"

   28                 nupRCross.UpButton()

   29             Case "pbRPassError"

   30                 nupRError.UpButton()

   31             Case "pbRCancel"

   32                 'VB 에는break나 Continue 문이 없는 관계로 ^^'

   33                 CancelCount()

   34             Case "pbBCancel"

   35                 CancelCount()

   36         End Select

   37 

   38         If Not (String.Equals(buttonName, "pbRCancel") Or String.Equals(buttonName, "pbBCancel")) Then

   39             ActionStack.Push(buttonName)

   40         End If

   41 

   42     End Sub

   43 

   44     Private Sub CancelCount()

   45         If ActionStack.Count < 1 Then

   46             Return

   47         End If

   48         Dim buttonName As String = ActionStack.Pop()

   49         Select Case buttonName

   50             Case "pbBPassFore"

   51                 nupBFore.DownButton()

   52             Case "pbBPassCross"

   53                 nupBCross.DownButton()

   54             Case "pbBPassError"

   55                 nupBError.DownButton()

   56             Case "pbRPassFore"

   57                 nupRFore.DownButton()

   58             Case "pbRPassCross"

   59                 nupRCross.DownButton()

   60             Case "pbRPassError"

   61                 nupRError.DownButton()

   62         End Select

   63     End Sub

   64 

   65 End Class

   66 

   67 



반응형
LIST
Posted by woojja

댓글을 달아 주세요

  1. 2014.03.15 00:21

    vb에는 break와 같은 명령이 exit입니다.
    select문에서 break을 주려면 exit select 로 하면 됩니다.


링크를 통해 아실 수 있습니다.


자~자~ 내일입니다 아~~



행복한 하루되십시요...

woojja ))*
\\\\\\\\\\\\\\\\\\\\\

반응형
LIST

'ETC' 카테고리의 다른 글

[ETC] 중국사무실  (0) 2009.03.26
[ETC] PhotoSynth 가 뭐냐고요?  (0) 2009.03.26
[ETC] 내일 VB 개발자들이 모입니다.  (0) 2009.03.19
[ETC] Open XMLSDK 가 나왔습니다.  (0) 2009.03.06
[ETC] 연모...  (2) 2009.03.06
[ETC] Jasper 를 소개합니다.  (0) 2009.03.06
Posted by woojja

댓글을 달아 주세요

이전버튼 1 이전버튼
반응형