dr.pantagon
جمعه 20 دی 1392, 02:59 صبح
سلام
یک مشکل واقعا مسخره و اعصاب خورد کن برخوردم
من دو تا فرم دارم که یکی اصلی هست که با کلیک کردن روی دکمه ها مثلا ایجاد اشتراک صفحه فرو دیگه رو میاره و یکی دیگه هم برای ایجاد خود اشتراک هست
برای نمایش یک صفحه دیگه از این کد استفاده میکنم
another.ShowDialog()
و برای تو صفحه بعدیم چک میکنم که مثلا اگر فلان کد موجود نبود بیا صفحه رو ببنده ( هاید کنه یا وی زیبل رو فالس کنه ) و پیغام بده
با این کد
Private Sub another_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
checkok()
End Sub
Private Sub checkok()
Dim sqlText2 As String
sqlText2 = ("select code from T_Members where code='" & Label3.Text & "'")
Dim dt2 As DataTable = New DataTable
Dim sda2 As SqlDataAdapter = New SqlDataAdapter(sqlText2, cn)
sda2.Fill(dt2)
cmd.CommandText = sqlText2
cn.Close()
cn1.Close()
cn.Open()
If cmd.ExecuteReader.HasRows() Then
dload()
Else
cn.Close()
cn1.Close()
MsgBox(".ابتدا اشتراک را ایجاد فرمایید", MsgBoxStyle.Critical, "پیام سیستمی")
Me.Hide()
Me.Visible = False
End If
کد داره اجرا میشه شرط هم درسته پیام سیستمی رو میده ولی نه هاید می کنه نه ویزیبل رو فالس می کنه
واقعا نمی فهمم دلیل چیه
لطفا راهنمایی بفرمایید
یک مشکل واقعا مسخره و اعصاب خورد کن برخوردم
من دو تا فرم دارم که یکی اصلی هست که با کلیک کردن روی دکمه ها مثلا ایجاد اشتراک صفحه فرو دیگه رو میاره و یکی دیگه هم برای ایجاد خود اشتراک هست
برای نمایش یک صفحه دیگه از این کد استفاده میکنم
another.ShowDialog()
و برای تو صفحه بعدیم چک میکنم که مثلا اگر فلان کد موجود نبود بیا صفحه رو ببنده ( هاید کنه یا وی زیبل رو فالس کنه ) و پیغام بده
با این کد
Private Sub another_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
checkok()
End Sub
Private Sub checkok()
Dim sqlText2 As String
sqlText2 = ("select code from T_Members where code='" & Label3.Text & "'")
Dim dt2 As DataTable = New DataTable
Dim sda2 As SqlDataAdapter = New SqlDataAdapter(sqlText2, cn)
sda2.Fill(dt2)
cmd.CommandText = sqlText2
cn.Close()
cn1.Close()
cn.Open()
If cmd.ExecuteReader.HasRows() Then
dload()
Else
cn.Close()
cn1.Close()
MsgBox(".ابتدا اشتراک را ایجاد فرمایید", MsgBoxStyle.Critical, "پیام سیستمی")
Me.Hide()
Me.Visible = False
End If
کد داره اجرا میشه شرط هم درسته پیام سیستمی رو میده ولی نه هاید می کنه نه ویزیبل رو فالس می کنه
واقعا نمی فهمم دلیل چیه
لطفا راهنمایی بفرمایید