求一个WINFORM的表单录入控件

Question

求一个WINFORM的表单录入控件

Answer 1

Private   Sub   dgDetail_CurrentCellChanged(ByVal   sender   As   Object,   ByVal   e   As   System.EventArgs)   Handles   dgDetail.CurrentCellChanged   
                  Try   
                            If   dgDetail.CurrentRowIndex   =   -1   Then   
                          Else   
                                  If   IsDBNull(dgDetail.Item(dgDetail.CurrentRowIndex,   0))   Then   
                                          '判断...,执行...   
                                          mTiDanHao   =   ""   
                                          mSelRows(dgDetail1,   DsCangDanCK1.Tables.IndexOf("tblCangDanCKXH"),   "提单号码",   mTiDanHao,   True)   
                                          lbMain.Text   =   "0"   
                                  Else   
                                          If   dgDetail.Item(dgDetail.CurrentRowIndex,   0)   <>   mTiDanHao   Then   
                                                  mTiDanHao   =   dgDetail.Item(dgDetail.CurrentRowIndex,   0)   
                                                  lbMain.Text   =   mSelRows(dgDetail1,   DsCangDanCK1.Tables.IndexOf("tblCangDanCKXH"),   "提单号码",   mTiDanHao)   
                                          End   If   
                                  End   If   
                          End   If   
                  Catch   ex   As   Exception   
                          MessageBox.Show(ex.Message,   mTitle,   MessageBoxButtons.OK,   MessageBoxIcon.Error)   
    
                  End   Try   
    
          End   Sub   
    
  从实际的工程代码里拷的,希望对你有启发.

Answer 2

Private   Sub   dgDetail_CurrentCellChanged(ByVal   sender   As   Object,   ByVal   e   As   System.EventArgs)   Handles   dgDetail.CurrentCellChanged   
                  Try   
                            If   dgDetail.CurrentRowIndex   =   -1   Then   
                          Else   
                                  If   IsDBNull(dgDetail.Item(dgDetail.CurrentRowIndex,   0))   Then   
                                          '判断...,执行...   
                                          mTiDanHao   =   ""   
                                          mSelRows(dgDetail1,   DsCangDanCK1.Tables.IndexOf("tblCangDanCKXH"),   "提单号码",   mTiDanHao,   True)   
                                          lbMain.Text   =   "0"   
                                  Else   
                                          If   dgDetail.Item(dgDetail.CurrentRowIndex,   0)   <>   mTiDanHao   Then   
                                                  mTiDanHao   =   dgDetail.Item(dgDetail.CurrentRowIndex,   0)   
                                                  lbMain.Text   =   mSelRows(dgDetail1,   DsCangDanCK1.Tables.IndexOf("tblCangDanCKXH"),   "提单号码",   mTiDanHao)   
                                          End   If   
                                  End   If   
                          End   If   
                  Catch   ex   As   Exception   
                          MessageBox.Show(ex.Message,   mTitle,   MessageBoxButtons.OK,   MessageBoxIcon.Error)   
    
                  End   Try   
    
          End   Sub   
    
  从实际的工程代码里拷的,希望对你有启发.

Answer 3

搜一下xptable.dll网上有详细的介绍

Answer 4

表单头用textbox
明细用datagrid