ahmed g Ответов: 3

Как я могу сохранить данные из combobox в числовой столбец с помощью VB.NET а SQL server ?

i have tabel and search form with combobox when i click save button error hapened in this line  
dt_bank.Rows(pos_bank).Item("bank_user_id") = Val(CmbBank_user_id.SelectedValue)

---------------------------------------------------------------------------------

this is code

 Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        dt_bank.Rows.Add()
        Dim pos_bank As Integer = Module2_bank.dt_bank.Rows.Count - 1
        dt_bank.Rows(pos_bank).Item("bank_id") = Val(TxtBank_id.Text)
        dt_bank.Rows(pos_bank).Item("bank_name") = TxtBank_name.Text
        dt_bank.Rows(pos_bank).Item("bank_address") = TxtBank_address.Text
        dt_bank.Rows(pos_bank).Item("bank_branch") = Cmbbank_branch.Text
        dt_bank.Rows(pos_bank).Item("bank_account") = Txtbank_account.Text
        dt_bank.Rows(pos_bank).Item("bank_swiftcode") = Txtbank_swiftcode.Text
        dt_bank.Rows(pos_bank).Item("bank_phone") = TxtBank_phone.Text
        dt_bank.Rows(pos_bank).Item("bank_fax") = TxtBank_fax.Text
        dt_bank.Rows(pos_bank).Item("bank_email") = TxtBank_email.Text
        dt_bank.Rows(pos_bank).Item("bank_webpage") = TxtBank_webpage.Text
        dt_bank.Rows(pos_bank).Item("bank_note") = TxtBank_note.Text
        dt_bank.Rows(pos_bank).Item("bank_user_id") = Val(CmbBank_user_id.SelectedValue)
        dt_bank.Rows(pos_bank).Item("bank_date") = DtpBank_date.Value
        MessageBox.Show("تمت الاضافه بنجاح", "اضافة بنك", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Module2_bank.save_bank()
        Module2_bank.load_bank()
        newbank()
    End Sub


Что я уже пробовал:

i use vb.net, sql server 
i try this 
Val(CmbBank_user_id.text) and 
Val(CmbBank_user_id.Selectedindex) and 
Val(CmbBank_user_id.Selecteditem) and 
Val(CmbBank_user_id.Selectedtext) and 
Val(CmbBank_user_id.SelectedValue)

3 Ответов

Рейтинг:
2

Member 13915320

Попробуй 

dt_bank.Rows(pos_bank).Item("bank_user_id") = Convert.toInt32(CmbBank_user_id.SelectedValue)


Вы также можете использовать 
Dim intUserId  as Integer
Integer.TryParse(CmbBank_user_id.SelectedValue, intUserId )
dt_bank.Rows(pos_bank).Item("bank_user_id") = intUsedId

Рейтинг:
1

CHill60

Всегда намного легче решать проблемы, если нам говорят, в чем заключается фактическая ошибка!

Вполне возможно, что CmbBank_user_id на самом деле у него нет SelectedValue набор.

Вы можете убедиться, что в этом выпадающем списке всегда задано значение по умолчанию, или проверить, что выбрано значение SelectedValue, прежде чем пытаться его использовать, например

If Not CmbBank_user_id.SelectedValue Is Nothing Then
    dt_bank.Rows(pos_bank).Item("bank_user_id") = Val(CmbBank_user_id.SelectedValue)
End If

Рейтинг:
0

ahmed g

ничего не спасено дайте исключение спасибо

Richard Deeming

Если вы хотите ответить на решение, нажмите кнопку "есть вопрос или комментарий?" кнопка под этим решением. НЕ опубликуйте свой ответ как новое "решение".

И вы все еще вы не сказали нам, в чем заключается настоящая ошибка!