タイトル : Re^5: 0から始まる数字の入力について 投稿日 : 2010/05/19(Wed) 17:05 投稿者 : nao
なんとか下の↓コードで「0001」の様に入力する事ができました。 ------------------------------------------------------------------- Private Sub 入力日TextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles 入力日TextBox.Enter Dim i As Integer = Me.番号TextBox.Text 番号TextBox.Text = i.ToString("0000") End Sub ------------------------------------------------------------------- ただ・・・ まだ問題があるんですが、下の↓コード ------------------------------------------------------------------- Private Sub DenpyoSaveBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Try If Not CheckEditData() Then Return 伝票テーブルBindingSource.EndEdit() Me.伝票テーブルTableAdapter.Update(Me.testDataSet.伝票テーブル) MessageBox.Show("更新・保存しました", Me.伝票区分Lbl.Text) Me.ListPrintBtn.Enabled = True Me.NewBtn.Enabled = True Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub ------------------------------------------------------------------- のDenpyoSaveBtnをクリックすると ------------------------------------------------------------------- Dim i As Integer = Me.番号TextBox.Text 番号TextBox.Text = i.ToString("0000") ------------------------------------------------------------------- ↑で設定した書式が解除されて保存されます。 (「0001」で表示されてるのが、保存ボタンをクリックすると「1」に戻って しまいます。) 何か原因があるのでしょうか・・・ アドバイス宜しくお願いします。 |