اضافه کردن یک سطر به دیتا گریدی که بانک متصل هست.

[mina.net]

سلام دوستان
من می خوام به یک دیتا گرید به یک جدول بایند شده سطر اضافه کنم چطور می شه این کارو کرد.

[anooshiran]

سلام دوست عزيز

بايد سطر رو به جدولي كه به ديتاگريد وصل هست اضافه كني. البته به شرطي كه از copy استفاده نكرده باشي. مثل كد زير
كه در اينصورت ميتواني سطر را به خود DataSource اضافه كني



Dgv.DataDource=DataTable.Copy

[mina.net]

سلام دوست عزيز

بايد سطر رو به جدولي كه به ديتاگريد وصل هست اضافه كني. البته به شرطي كه از copy استفاده نكرده باشي. مثل كد زير
كه در اينصورت ميتواني سطر را به خود DataSource اضافه كني



Dgv.DataDource=DataTable.Copy


دوست عزیز من می خوام فقط یک سطر با دیتاگرید اضافه کنم در حقیقت من از دیتا گرید هم برای ثبت رکورد جدید هم برای ویرایش و هم برای دیدن استفاده می کنم. اگه می شه یک کم بیشتر توضیح بدید.

[anooshiran]

دوست عزيز

وقتي ديتاگريد به جدول متصل است نمي توان به ديتاگريد سطري را اضافه كرد. براي اين كار بايد سطر را به جدولي كه به ديتاگريد متصل است . شطر اضافه كرد.

فرض مي كنيم نام جدولي كه به گريد وصل است dt نام دارد. بنابر اين



dt.Rows.Add()


بدينوسيله يك سطر به dt و درنتيجه به ديتاگريد افزوده خواهد شد.

[mina.net]

دوست من نشد.
یعنی جدول من که نامش anbar هست
anbar.rows.add
منظورت از جدول چی هست به جدول SQL که نمی شه اینطور چیزی اضافه کرد. اگه می شه بیشتر توضیح بدید.
اصلا من می خوام از طریق دیتاگرید فاکتور بزنم ویرایش ، ثبت ، حذف هم بتونم انجام بدم در ضمن من محاسباتی رو هم از این طریق انجام می دم یعنی فیلد تعداد ضربدر قیمت منهای تخفیف هر سطر می شه مجموع و جمع مجموع می شه مجموع فاکتور . بفرمایید بهترین راه چیه؟ خسته شدم از بس با دیتا گرید سر و کله زدم.

[anooshiran]

دوست عزيز

فايل ضميمه زير را دانلود كن. باز هم سئوال بود در خدمت هستم

[sempay_ninjutsu]

سلام .یه نمونه کد که برای اضافه کردن یک سطر به دیتا گرید در جدول seller می باشد.شاید کمکت کنه.فقط چون من کد را از برنامم کپی کردم یه کم جای پرانتزا جابه جا شده حواست باشه....
Dim strcon As String
strcon = "data source=VAHID-D450DC08C;initial catalog=alborz;integrated security=true"
Dim con As New SqlConnection(strcon)
Dim strsql As String = "select *from seller"
Dim newrow As DataRow
Dim ds As New DataSet
Dim da As SqlDataAdapter
con.Open()
da = New SqlDataAdapter(strsql, con)
da.Fill(ds, "seller")
newrow = ds.Tables("seller").NewRow
newrow("sellerfname") = TextBox2.Text
newrow("sellerlname") = TextBox3.Text
newrow("selleraddress") = TextBox4.Text
newrow("cost") = Val(TextBox5.Text)
newrow("sellerphone") = Val(TextBox8.Text)
newrow("dsys") = TextBox6.Text
newrow("tsys") = TextBox7.Text
ds.Tables("seller").Rows.Add(newrow)
Dim cb As SqlCommandBuilder
cb = New SqlCommandBuilder(da)
da = cb.DataAdapter
da.Update(ds, "seller")
con.Close()
seller.SellerTableAdapter.Fill(seller.DataSet3.sel ler)