سوال: تقاضای تبدیل دستور سی شارپ به vb.net [بایگانی]

pooya1072

سه شنبه 22 اسفند 1391, 12:36 عصر

سلام
اگه ممکنه معادل این دستور سی شارپ رو به ویبی برام بنویسید>

DataTable _DataTable= ((DataTable)DatagridView.DataSource).AcceptChanges ();

در ضمن کسی از دوستان به من بگه بکار گیری UnderLine قبل از بعضی متغیرها علت خاصی داره یا یه چیز دلخواهه . مثلا در دستور بالا DataTable_ علت خاصی داره که زیرخط به کار برده؟

xxnagin

سه شنبه 22 اسفند 1391, 13:32 عصر

سلام
این کد تبدیلت

Dim _DataTable As DataTable = CType(DatagridView.DataSource, DataTable).AcceptChanges()

مشکل خاصی نیستش
جا هایی که مثلا از پروپرتی مربوطه و متغیر مربوط به این پروپرتی اگه هم نام باشند از پیشوند underline برای متغیر استفاده میکنن
و زیاد چیز مهمی نیستش
http://forums.asp.net/t/883716.aspx/1

Private _stuff As Integer
Public Property Stuff As Integer
Get
Return _stuff
End Get
Set (Value as Integer)
_stuff = Value
End Set
End Property

pooya1072

سه شنبه 22 اسفند 1391, 14:42 عصر

سلام
این کد تبدیلت

Dim _DataTable As DataTable = CType(DatagridView.DataSource, DataTable).AcceptChanges()

[/VB]

با تشکر از شما
توی برنامه یک دیتاگریدویو قرار دادم و اسمش رو مثلا dgv1 تعیین کردم . طبق اون چیزی که شما نوشتید انجام دادم .ارور میده :

Dim _DataTable As DataTable = CType(dgv1.DataSource, DataTable).AcceptChanges()

متن ارور :
Expression does not produce a value
به نظر شما مشکل از کجاست؟

maxvel

سه شنبه 22 اسفند 1391, 15:05 عصر

سلام
اگه ممکنه معادل این دستور سی شارپ رو به ویبی برام بنویسید>

DataTable _DataTable= ((DataTable)DatagridView.DataSource).AcceptChanges ();

در ضمن کسی از دوستان به من بگه بکار گیری UnderLine قبل از بعضی متغیرها علت خاصی داره یا یه چیز دلخواهه . مثلا در دستور بالا DataTable_ علت خاصی داره که زیرخط به کار برده؟

دوست عزیز اینجارو یه نگا بنداز

http://converter.telerik.com/

pooya1072

سه شنبه 22 اسفند 1391, 15:34 عصر

دوست عزیز اینجارو یه نگا بنداز

http://converter.telerik.com/

مرسی دوست عزیز...سایت جالبیه ... ولی مشکل من همچنان پابرجاست.

xxnagin

سه شنبه 22 اسفند 1391, 16:59 عصر

کل کد اون رویداد مربوطه رو بذار

pooya1072

سه شنبه 22 اسفند 1391, 17:41 عصر

Private Sub UpdateTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateTable.Click
Dim NFFeedDataAdapter As SqlDataAdapter
Dim NFFeedDataTable As New DataTable()
Dim cn As New System.Data.SqlClient.SqlConnection
cn.ConnectionString = "Data Source=pooyan-pc\SQLEXPRESS;Initial Catalog=Faravaresh Produce Control;UID=pooya1072;password=ahmadreza"
NFFeedDataAdapter = New SqlDataAdapter("select * from t1", cn)
If dgvPlantFeed.Rows.Count <> NFFeedDataTable.Rows.Count Then
Dim _DataTable As DataTable = CType(dgvPlantFeed.DataSource, DataTable).AcceptChanges()
End If
End Sub

pooya1072

سه شنبه 22 اسفند 1391, 17:42 عصر

کل کد اون رویداد مربوطه رو بذار

Private Sub UpdateTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateTable.Click
Dim NFFeedDataAdapter As SqlDataAdapter
Dim NFFeedDataTable As New DataTable()
Dim cn As New System.Data.SqlClient.SqlConnection
cn.ConnectionString = "Data Source=pooyan-pc\SQLEXPRESS;Initial Catalog=Faravaresh Produce Control;UID=pooya1072;password=ahmadreza"
NFFeedDataAdapter = New SqlDataAdapter("select * from t1", cn)
If dgvPlantFeed.Rows.Count <> NFFeedDataTable.Rows.Count Then
Dim _DataTable As DataTable = CType(dgvPlantFeed.DataSource, DataTable).AcceptChanges()
End If
End Sub

xxnagin

سه شنبه 22 اسفند 1391, 20:47 عصر

مثل اینکه اینجا داره خطا میده

AcceptChanges()
یه رویداد sub هستش
نمیتونی از اون استفاده کنی
می تونی پروژه رو کامل بذاری