2016.08.03随记

e.Handled=false(默认的)，可以接受这个事件
e.Handled=true,处理过了，不再处理当前键盘事件
例如vb.net中只允许输入数字和可以输入小数：

#Region "数字判断"    Private Sub UcText4_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtQty.KeyPress, txtPrintQty.KeyPress        If Char.IsNumber(e.KeyChar) Or e.KeyChar = Chr(8) Then            e.Handled = False        Else            e.Handled = True        End If    End Sub#End Region#Region "允许数字和小数"    Private Sub UcText8_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPrice.KeyPress        If Convert.ToInt32(e.KeyChar) > 31 Then            Dim numStr = txtPrice.Text.Substring(0, txtPrice.SelectionStart) + e.KeyChar.ToString() + txtPrice.Text.Substring(txtPrice.SelectionStart)            If Not Utility.IsNumber(numStr, 2, False) Then                e.Handled = True            End If        End If    End Sub#End Region

---

拷贝表
create table_name as select * from Source_table where 1=1;

复制表结构
create table_name as select * from Source_table where 1 <> 1;

where1=1用于查询语句，可以避免where后无条件报错

---

需求：想在grid里面设置个checkbox，和可输入的打印份数，
在数据库有如下操作：
ISNULL(NULL, 0) AS 選択
ISNULL(NULL, NULL) AS 数
然后grid 绑定的时候选择style设为checkbox
isnull(参数1，参数2) 判断参数1 是否为NULL，如果是 返回参数2 否则返回参数1.

SELECT     ISNULL(NULL, 0) AS 選択, ISNULL(NULL, NULL) AS 数, dbo.T_OrderProcess.PMID AS 工程, dbo.T_OrderInfo.OrderID AS 受注番号,                       dbo.M_MerchantInfo.MerchantID AS 得意先ID, dbo.M_MerchantInfo.MerchantName AS 得意先, dbo.M_ProductManagement.ProductNumber AS 製品ID,                       dbo.M_ProductManagement.ProductName AS 製品, dbo.M_ProductManagement.ClassWood AS 材種, dbo.M_ProductManagement.ClassSname AS サイズ,                       dbo.M_ProductManagement.ClassHeiYan AS 黒研, dbo.T_OrderInfo.ProductionQuantity AS 作業本数, dbo.T_OrderInfo.OrderDate AS 受注日,                       dbo.T_OrderProcess.ProductionDate AS 製造納期, dbo.VM_OrderType.TextValue AS 受注区分, dbo.M_ProductManagement.RGType AS 分類FROM         dbo.T_OrderInfo INNER JOIN                      dbo.M_MerchantInfo ON dbo.T_OrderInfo.MerchantID = dbo.M_MerchantInfo.MerchantID INNER JOIN                      dbo.M_ProductManagement ON dbo.T_OrderInfo.ProductNumber = dbo.M_ProductManagement.ProductNumber INNER JOIN                      dbo.T_OrderProcess ON dbo.T_OrderInfo.OrderID = dbo.T_OrderProcess.OrderID INNER JOIN                      dbo.VM_OrderType ON dbo.VM_OrderType.TextKey = dbo.T_OrderInfo.OrderType

---

vb.net旁边加个全选择按钮和全解除按钮：

#Region "全选择"    Private Sub btn全選択_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn全選択.Click        For Each gv In dgvInfo.Rows            gv.Cells("選択").Value = True        Next    End Sub#End Region

全选择取消同理

---

对话框只能打开一个实现（vb.net）

  Private Shared m_Instance As frm工程作業票発行    Public Shared Function getInstance() As frm工程作業票発行        If m_Instance Is Nothing Then            m_Instance = New frm工程作業票発行        End If        Return m_Instance    End Function

另外两点，一是在该页面的fromclosing事件里加上：
m_Instance=nothing
而是打开这个页面，
Dim frm As frm工程作業票発行
frm = frm工程作業票発行.getInstance
frm.FrmEnter = Constant.EnterFrom.MainMenu
frm.Show()

---