「名前をつけて保存」ダイアログボックスの表示

めも

   ''' <summary>
    ''' 「名前をつけて保存」ダイアログボックスの表示
    ''' </summary>
    ''' <param name="pFileName">初期値ファイル名</param>
    ''' <param name="pDirectory">初期値フォルダ</param>
    ''' <param name="pFilter">[ファイルの種類]に表示される選択肢</param>
    ''' <param name="pFilterIndex"></param>
    ''' <param name="pTitle">タイトル</param>
    ''' <returns>選択したファイルのフルパス</returns>
    Public Function SaveFileName(ByVal pFileName As String,
                                 Optional ByVal pDirectory As String = "\\tsclient\C\",   '"C:\"
                                 Optional ByVal pFilter As String = "CSVファイル(*.csv)|*.csv;|すべてのファイル(*.*)|*.*",
                                 Optional ByVal pFilterIndex As Integer = 1,
                                 Optional ByVal pTitle As String = "保存先のファイルを選択してください") As String

        'SaveFileDialogクラスのインスタンスを作成
        Dim sfd As New SaveFileDialog()

        '初期値ファイル名
        sfd.FileName = pFileName

        '初期値フォルダ
        sfd.InitialDirectory = pDirectory

        '[ファイルの種類]に表示される選択肢
        sfd.Filter = pFilter
        sfd.FilterIndex = pFilterIndex

        'タイトルを設定する
        sfd.Title = pTitle

        'ダイアログボックスを閉じる前に現在のディレクトリを復元するようにする
        sfd.RestoreDirectory = True
        '既に存在するファイル名を指定したとき警告する
        sfd.OverwritePrompt = True
        '存在しないパスが指定されたとき警告を表示する
        sfd.CheckPathExists = True

        'ダイアログを表示する
        If sfd.ShowDialog() = DialogResult.OK Then
            'OKボタンがクリックされたとき、選択されたファイル名を取得する
            SaveFileName = sfd.FileName
        Else
            'キャンセルのとき
            SaveFileName = ""
        End If

    End Function

指定した名前の列がデータテーブルに含まれるかの確認

メモ

DataColumnCollection.Contains メソッド (String) (System.Data)

   ''' <summary>
    ''' 指定した名前の列がデータテーブルに含まれるかの確認
    ''' </summary>
    ''' <param name="pColName">列名</param>
    ''' <param name="pTable">データテーブル</param>
    ''' <returns>存在する：True / 存在しない：False</returns>
    Public Function dtColumnExist(pColName As String, pTable As DataTable) As Boolean

        Dim Col As DataColumnCollection = pTable.Columns

        If Col.Contains(pColName) Then
            Return True
        Else
            Return False
        End If

    End Function

＜SQL＞ Lag関数

SQLServer2012以降

同じ結果セットの前の行からデータにアクセスする。
現在の行の値と前の行の値を比較できる。

やりたいことは、
年月毎に持っているデータで、当月金額と前月金額を表示したい。
前月金額は先月のデータの当月金額を表示したい。
内部結合で考えていたけど、Lag関数というのがあるらしいので調べてみた。

LAG (scalar_expression [,offset] [,default])  
    OVER ( [ partition_by_clause ] order_by_clause )  

LAG (Transact-SQL) | Microsoft Docs

SELECT 年月日,部門CD,当月仕掛,lag(当月仕掛,1,0) over(partition by 部門CD order by 年月日) as 前月仕掛
FROM Table1

すっきりしていいんだけど、途中のデータが抜けた場合に困るかも。
2018年06月の次に2018年08月のデータが入った場合、６月データ見にいくみたい。

なのでやっぱり内部結合でダラダラ書こうかな。

With MM As
(
SELECT [部門CD] as '部門CD',[部門名] as '部門名' FROM TableBMN
)
 SELECT MM.[部門CD],MM.[部門名],TBL2.前月仕掛,Tbl.*
FROM MM
LEFT OUTER JOIN (SELECT * FROM Table1 WHERE left([年月日],6)='201807') as Tbl 
ON MM.[部門CD] = tbl.[部門CD]
LEFT OUTER JOIN (SELECT 部門CD,前月仕掛 FROM Table1  WHERE left([年月日],6)='201806') as Tbl2 
ON MM.[部門CD] = Tbl2.[部門CD]

年月はパラメータで渡す、と。

はてなブログでソースコード

ソースコードをブログの中に埋め込む方法

まず、編集方法は「はてな記法」にする。

「>||」「||<」

これで囲むと枠が出る。

http://hatenablog.com/

おぉ。

　>|vb|
　・・・ソースコード
　||<

VBでいいのかな。

   Private Sub setColReadOnly()
        For Each Col As KeyValuePair(Of Tuple(Of Integer, String, Boolean, Boolean, String), String) In dcColumns
            dgv.Columns(Col.Key.Item2).ReadOnly = Col.Key.Item3
        Next
    End Sub

おぉ。

書式を指定してテキストボックスに入力

年月のテキストボックスに「yyyy/mm」の形式で入力したい。

MaskedTextBoxのMaskプロパティに「####/##」

書式適用前の値を取得したいので

TextMaskFormatプロパティを「ExcludePromptAndLiterals」

又は

TextBox.TextMaskFormat = MaskFormat.ExcludePromptAndLiterals