Convert.IsDBNull(DataGridView1.Rows(1).Cells(1).Value) = True

Convert.DBNull.Equals(DataGridView1.Rows(1).Cells(1).Value) = True

IsDBNull(DataGridView1.Rows(1).Cells(1).Value) = True

DB2:

Select * From Table1 Order By Column1 Fetch First 10 Row Only

SQL Server:

Select Top 10 * From Table1 Order By Column1

MySQL:

Select * From Table1 Limit 10

Select * From Table Limit 10,5     查詢第11筆開始後5筆

Select * From Table Limit 10,-1     查詢第11筆開始至最後一筆

呼叫 Process 方法，使用 Start 來啟動系上的處理序，在 Start 之前須先指定處理序檔名，方式是將 FileName 屬性設定處理序的完整路徑，而限定 Windows 應用程式的情形下，只需設定該處理序名稱即可。

• 傳遞 FileName 參數以在執行階段啟動處理程序

Dim myProcess As Process = Process.Start("Notepad.exe")

• 若要在執行階段使用 StartInfo 屬性來啟動處理程序

Dim myProcess As New Process()

myProcess.StartInfo.FileName = 『Notepad.exe』

myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Maximized ‘WindowStyle可以設定開啟視窗的大小

myProcess.Start()

• 若要停止處理序，若處理序是無視窗，則呼叫 Kill 方法，但不會提示要儲存已變更的資料。任何未儲存的資料都將遺失。

Dim myProcesses() As Process
Dim myProcess As Process
‘ 回傳處理序名稱為 『Notepad』 的陣列
myProcesses = Process.GetProcessesByName(『Notepad』)
For Each myProcess In myProcesses
    myProcess.CloseMainWindow()
Next

• 判別處理序是否有回應，若沒有回應則強制關閉處理序。

Dim myProcesses() As Process
myProcesses = Process.GetProcessesByName(『Notepad.exe』)
‘ Tests the Responding property for a True return value.
If myProcesses(0).Responding Then
    myProcesses(0).CloseMainWindow()
Else
    ‘ Forces the process to close if the Responding value is False.
    myProcesses(0).Kill()
End If

• 判別處理序是否已經結束

If Not notepad.HasExited Then
    ' If the process is still running, close it.
    notepad.CloseMainWindow()
End If

等候處理序完成動作，若處理序會耗費一段時間，可以使用 WaitForInputIdle()
Dim myProcess As New Process()
myProcess = Process.Start("Notepad.exe")
myProcess.WaitForInputIdle()    '等候處理序完成再執行下面的動作
myProcess.WaitForExit(3000)     '等待3秒後,再執行下面的動作
myProcess.CloseMainWindow()

範例:
'宣告 myProcess 變數
Dim myProcess As System.Diagnostics.Process = New System.Diagnostics.Process

'設定顯示視窗大小
myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
'指定 FileName 可指定執行檔或系統中已有設定關連的檔案，若已有安裝Office軟體，可指定Word文字檔，會自動開啟相關程式。
myProcess.StartInfo.FileName = "cmd.exe"
myProcess.StartInfo.FileName = "C:\TEMP\TEST.doc"

'啟動處理序
myProcess.Start()
'若要DOS視窗下送出命令 SendKey ，不知什麼原因(可能來不及反應)連續送出命令會沒有反應，所以加了等待時間，再送下一個命令。
SendKeys.Send("cd\") 或 SendKeys.Send("ping www.yahoo.com.tw")
myProcess.WaitForExit(1000)
SendKeys.Send("{Enter}")

'關閉處理序，詳細的說明，可參考前一篇文章。
myProcess.CloseMainWindow()

如果有個 Message.log 檔，希望由 Notepad 來開啟。
myProcess.StartInfo.FileName = "Notepad.exe"
myProcess.StartInfo.Arguments = "c:\Message.log"
myProcess.Start()

若是程序後需要帶參數也可以使用這種方式，沒有畫面的處理序很適用。相當於DOS下命令 C:\>tranzip.exe T1.txt T2.txt
myProcess.StartInfo.FileName = "tranzip.exe"
myProcess.StartInfo.Arguments = "T1.txt T2.txt"

開啟 IE 的方式
myProcess.StartInfo.FileName = "IExplore.exe"
myProcess.StartInfo.Arguments = www.google.com.tw
直接列印PDF檔案
myProcess.StartInfo.CreateNoWindow = true
myProcess.StartInfo.FileName = "c:\DKTD.pdf"
myProcess.StartInfo.Verb = "Print"

CloseMainWindow( )，Close( ) 及 Kill( ) 三種方式。

CloseMainWindow( ) : 關閉有使用者介面的處理序，方法是傳送關閉訊息至其主視窗。

Close( ) : 釋放與這個元件相關的所有資源。

Kill( ) : 立即停止相關的處理序。

CloseMainWindow( ) ，會向主視窗發出關閉請求，並不會強制應用程式退出，它的行為與用戶使用系統功能表關閉應用程式主視窗的行為一樣，因此，通過關閉主視窗發出的退出進程的請求不強制應用程式立即退出。所以基本上CloseMainWindow( ) 是針對有主視窗的程序要結束時才需要使用。因有可能有回應訊息，需使用者回應，所以不一定可以順利關閉程序。即使視窗關閉了，仍有可能沒有釋放相關的所有資源，所以一般會和 Close( ) 方法一起使用。應用程式可以在結束前要求使用者確認，也可以拒絕結束。若要強制應用程式結束，請使用 Kill 方法。

Close( ) ，是針對沒有主視窗的程序使用，並釋放與這個元件相關的所有資源。

Kill( )，會強制終止處理序，如果您呼叫 Kill，可能會失去處理序編輯的資料或配置給處理序的資源。Kill 會造成處理序異常終止，應該只在必要時使用。CloseMainWindow 會逐步終止處理序並關閉所有視窗，所以比較適用於有介面的應用程式。如果 CloseMainWindow 失敗，可以用 Kill 終止處理序。Kill 是終止沒有圖形介面的處理序的唯一方法。

先進行關閉程序的視窗，再判斷是否還存在，若是則進行 Kill 的方法。 

       myProcess.CloseMainWindow()
        If Not myProcess.HasExited Then
            myProcess.Kill()
        End If

或是先判別程序是否有反應

        If myProcess.Responding = False Then
            myProcess.Kill()
        End If

Dim STDay As String = DateTimePicker1.Value.ToString(『yyyyMMdd』)

Dim D1 As String = (Integer.Parse(STDay) – 19110000).ToString

當然如果需要自訂格式如「民國年 – 月 – 日」，則必須自行拆解西元年減1911了。

Dim STDay As Date = DateTimePicker1.Value
Dim yy As String = (STDay.Year – 1911).ToString
Dim mm As String = STDay.Month.ToString(『00″)
Dim dd As String = STDay.Day.ToString(『00″)
MsgBox(yy & 』 – 』 & mm & 』 – 』 & dd)

一. DateTimePicker 的顯示即顯示民國年(修改系統地區及語言選項的日期)

通常控制台裡設定的都是西曆(中文)，所以 DateTimePicker 的 Format 屬性若是選擇 Long 則顯示「2009年04月22日」或選擇 Short 則顯示「2009/04/22」。

若在自訂地區選項中的月曆類型選擇「中華民國曆」，完整日期樣式可改為「ggyyyy’年’MM’月’dd’日’」，則 DateTimePicker 的 Format 屬性若是選擇 Long 則顯示「中華民國98年04月22日」或選擇 Short 則顯示「98/04/22」。

二. DateTimePicker 的顯示即顯示民國年(使用Win32API的方式)

若不想修改系統設定，要由程式去改的話，就要使用Win32API的方式。

宣告一些常數，可參考最後面的資料

    Const LOCALE_SLONGDATE = &H20
    Const LOCALE_SSHORTDATE = &H1F
    Const LOCALE_STIME = &H1E
    Const LOCALE_SDATE = &H1D
    Const LOCALE_ICALENDARTYPE = &H1009
    Private Declare Function GetSystemDefaultLCID Lib 『kernel32″ () As Integer
    Private Declare Function SetLocaleInfo Lib 『kernel32″ Alias 『SetLocaleInfoA』 (ByVal Locale As Integer, ByVal LCType As Integer, ByVal lpLCData As String) As Integer

新增兩個副程式

    Private Sub EngCalendar() 』設定系統月曆類型為西元年
        SetLocaleInfo(GetSystemDefaultLCID, LOCALE_ICALENDARTYPE, 『1″)
        SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SSHORTDATE, 『yyyy/MM/dd』)
        SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SLONGDATE, 『yyyy’年’MM’月’dd’日’』)
    End Sub

    Private Sub ChtCalendar() 』設定系統月曆類型為民國年
        SetLocaleInfo(GetSystemDefaultLCID, LOCALE_ICALENDARTYPE, 『4″)
        SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SSHORTDATE, 『‘民國’yyy’年’MM’月’dd’日』)
        ‘SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SDATE, 『-』)          ‘設定日期分隔符號
        ‘SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SLONGDATE, 『ggyyyy’年’MM’月’dd’日’』)     ‘設定完整日期樣式
    End Sub

在 Form Load 時，call ChtCalendar() ，將系統改為中華民國曆，Form Closing 時 call EngCalendar() 改回西曆(中文)，還有 DateTimePicker 的 Format 屬性要設為 Short。因為是設定簡短日期樣式 SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SSHORTDATE, 『‘民國’yyy’年’MM’月’dd’日』)。

參考資料:如何讀取和變更與 API 函式，系統日期    http://support.microsoft.com/kb/177146/zh-tw

   Hexadecimal Value               Description
   ——————————————————-
   0×00000014            * Local monetary symbol.         *
   0×00000015            * International monetary symbol. *
   0×00000016            * Monetary decimal separator.    *
   0×00000017            * Monetary thousand separator.   *
   0x0000001D            * Date separator.                *
   0x0000001E            * Time separator.                *
   0x0000001F            * Short date format string.      *
   0×00000020            * Long date format string.       *
   0x0000002A            * Long name for Monday.          *
   0x0000002B            * Long name for Tuesday.         *
   0x0000002C            * Long name for Wednesday.       *
   0x0000002D            * Long name for Thursday.        *
   0x0000002E            * Long name for Friday.          *
   0x0000002F            * Long name for Saturday.        *
   0×00000030            * Long name for Sunday.          *
   0×00000031            * Abbreviated name for Monday.   *
   0×00000032            * Abbreviated name for Tuesday.  *
   0×00000033            * Abbreviated name for Wednesday.*
   0×00000034            * Abbreviated name for Thursday. *
   0×00000035            * Abbreviated name for Friday.   *
   0×00000036            * Abbreviated name for Saturday. *
   0×00000037            * Abbreviated name for Sunday.   *

要讓 DataGridView 的指標跟著處理資料動的話，我用的程式碼如下:

        For i As Integer = 0 To ds.Tables(『DataTemp』).Rows.Count – 1
            Application.DoEvents()
            DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
            DataGridView1.BindingContext(ds.Tables(『DataTemp』)).Position = i
        Next

若如原先 DataGridView1 的 DataSource 有指定，也可以用 DataGridView1.BindingContext(DataGridView1.DataSource).Position = i

Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
        Dim rectangle As New Rectangle(e.RowBounds.Location.X, e.RowBounds.Location.Y, DataGridView1.RowHeadersWidth – 4, e.RowBounds.Height)
        TextRenderer.DrawText(e.Graphics, (e.RowIndex + 1).ToString(), DataGridView1.RowHeadersDefaultCellStyle.Font, rectangle, DataGridView1.RowHeadersDefaultCellStyle.ForeColor, TextFormatFlags.VerticalCenter Or TextFormatFlags.Right)
End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dt as New DataTable

………

End Sub

所以每次一進入這個程序Button1_Click時，就會重新 New 一個 DataTable 的物件，當然 DataTable 內的資料就不見了。也就沒有要手動清除 DataTable 中的資料了。

我常遇到的是需要宣告 DataTable 為一個全域變數，當重新載入資料時，是會在原有的資料上再附加上去，因此也造成資料的重複，為了解決這個問題，必須先清除原先的資料。 但在清除 DataTable 資料之前，可能有需要先判別 DataTable 是否存在?

以下是我測試的幾種方式提供一個小小的記錄 :

Dim DS as New DataSet

DS.Tables.Contains(『DataTemp』) = True

DS.Tables.IndexOf(ds.Tables(『DataTemp』)) <> -1

DS.Tables(『DataTemp』) Not Nothing

一般來說，DataTable 在載入後，會記錄載入的資料結構，所以在第二次載入資料時，若在宣告一個 DataSet 或 DataTable 全域變數，只需清除其中的資料行即可。

但如果每次載入的資料，可能欄位數不同時，在第二次載入資料時，會發生原有的資料結構仍在，新載入的欄位會接在第一次載入欄位之後，這並不是我想要的結果，此時必須先移除原有的 DataTable 結構，因一直找不到方法，只有直接移除 DataTable，再重新建立。

若是第一次載入資料，則無需移除 DataTable。

判別 DataTable 是否存在，若存在則先移除
If ds.Tables.Contains(『DataTemp』) = True Then
            ds.Tables.Remove(『DataTemp』)
End If

Dim i As Integer = ds.Tables.IndexOf(ds.Tables(『DataTemp』))
If  i <> -1 Then
       ds.Tables.RemoveAt(i)
End If

If ds.Tables(『DataTemp』) IsNot Nothing Then
       ds.Tables.Remove(『DataTemp』)
End If

Dim dt As New DataTable(『DataTemp』)

這是針指定的 DataTable ，若要對全部的 DataTable 移除，可用 DataSet.Reset() 方法。

Copy 方法建立的新 DataTable 與原始資料表具有相同的一組 DataRows，但是 Clone 方法建立的新 DataTable 不會包含任何 DataRows.。