hilapon

// 従来のコード -----------------------------------------
private string _Message;
public string Message {
    get { return _Message; }
    set {
        if (_Message == value) return;
        _Message = value;
        RaisePropertyChanged("Message"); // 一文字でも書き間違えると動作しない
    }
}

hilapon

' 従来のコード -------------------------------------------
Private _Message As String
Public Property Message As String
    Get()
        Return _Message 
    End Get
    Set(value As String)
        If _Message = value Return
        _Message = value
        RaisePropertyChanged("Message")

hilapon

' 日付型リテラルのサンプル
Sub Main()
    Dim a = #2014-11-14#
    Console.WriteLine(a.ToShortDateString()) ' 2014/11/14
End Sub

hilapon

GrapeCity.Win.Editors.GcNumber, GrapeCity.Win.Editors.v50, Version=5.x.xxxx.xxx, Culture=neutral, PublicKeyToken=xxxx
GrapeCity.Win.Editors.GcNumber, GrapeCity.Win.Editors.v50, Version=5.x.xxxx.xxx, Culture=neutral, PublicKeyToken=xxxx
GrapeCity.Win.Editors.GcIme, GrapeCity.Win.Editors.v50, Version=5.x.xxxx.xxx, Culture=neutral, PublicKeyToken=xxxx
GrapeCity.Win.Editors.GcTextBox, GrapeCity.Win.Editors.v50, Version=5.x.xxxx.xxx, Culture=neutral, PublicKeyToken=xxxx
GrapeCity.Win.Editors.GcDate, GrapeCity.Win.Editors.v50, Version=5.x.xxxx.xxx, Culture=neutral, PublicKeyToken=xxxx
GrapeCity.Win.Editors.GcDateVallidater GrapeCity.Win.Editors.v50, Version=5.x.xxxx.xxx, Culture=neutral, PublicKeyToken=xxxx
GrapeCity.Win.Editors.GcNumberVallidater GrapeCity.Win.Editors.v50, Version=5.x.xxxx.xxx, Culture=neutral, PublicKeyToken=xxxx

hilapon

Option Explicit On
Option Strict On

#Region "名前空間"

Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Text
Imports System.Windows.Forms

hilapon

Option Explicit On
Option Strict On

''' <summary>
''' <see cref="CheckedComboBox">CheckedComboBox</see> 用イベントパラメータクラス
''' </summary>
Friend Class CheckedComboBoxEventArgs
    Inherits EventArgs

#Region "フィールド"

hilapon

SELECT
    MKW.kokyaku_id,
    MRK.id AS ryoukin_id,
    MRK.name,
    CASE WHEN COALESCE( MKW.waribiki_kubun_id, 0 ) <= 1 
                    THEN 0 ELSE 1 END AS waribiki_kubun_id,
    COALESCE( MKW.waribiki_ritsu, 0 ) AS waribiki_ritsu, 
    COALESCE( MKW.waribiki_gaku,  0 ) AS waribiki_gaku
FROM 
    (SELECT DISTINCT id, name

hilapon

Dim query As String = _
    "SELECT " + _
    "    MKW.kokyaku_id, " + _
    "    MRK.id AS ryoukin_id, " + _
    "    MRK.name, " + _
    "    CASE WHEN COALESCE( MKW.waribiki_kubun_id, 0 ) <= 1  " + _
    "                    THEN 0 ELSE 1 END AS waribiki_kubun_id, " + _
    "    COALESCE( MKW.waribiki_ritsu, 0 ) AS waribiki_ritsu,  " + _
    "    COALESCE( MKW.waribiki_gaku,  0 ) AS waribiki_gaku " + _
    "FROM  " + _

hilapon

string query =
    "SELECT " +
    "    MKW.kokyaku_id, " +
    "    MRK.id AS ryoukin_id, " +
    "    MRK.name, " +
    "    CASE WHEN COALESCE( MKW.waribiki_kubun_id, 0 ) <= 1  " +
    "                    THEN 0 ELSE 1 END AS waribiki_kubun_id, " +
    "    COALESCE( MKW.waribiki_ritsu, 0 ) AS waribiki_ritsu,  " +
    "    COALESCE( MKW.waribiki_gaku,  0 ) AS waribiki_gaku " +
    "FROM  " +

hilapon

SELECT    MKW.kokyaku_id,    MRK.id AS ryoukin_id,    MRK.name,    CASE WHEN COALESCE( MKW.waribiki_kubun_id, 0 ) <= 1                     THEN 0 ELSE 1 END AS waribiki_kubun_id,    COALESCE( MKW.waribiki_ritsu, 0 ) AS waribiki_ritsu,     COALESCE( MKW.waribiki_gaku,  0 ) AS waribiki_gakuFROM     (SELECT DISTINCT id, name        FROM m_ryoukin        ORDER BY id) AS MRK    LEFT JOIN        m_waribiki MKW        ON  MRK.id = MKW.ryoukin_id        AND MKW.id = @kokyaku_id