Вопрос : Следующие и ранее кнопки не работая

Я добавил во-первых, ранее, затем и последние кнопки к моим окнам формируют поэтому потребитель smog задействовать через показатели в dataset.  Но поля формы не уточняют когда кнопки выбраны.  Я пропавш что-то.  Может кто-то пожалуйста помочь мне?  Возблагодарите you. class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
class= lstPtName_Click " id= " codeSnippet791938 
Private Sub (прислужник ByVal как предмет, ByVal e как System.EventArgs) регулирует lstPtName.Click
        LoadPtData ()
        Me.txt NoRecs.Text = Me.BindingContext (dsPatient.Tables («пациенты»)). Count.ToString
        Me.BindingContext (dsPatient.Tables («пациенты»)). Положение = 0
        Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables («пациенты»)). Положение + 1
    Подводная лодка конца

    Приватное Sub btnNext_Click (прислужник ByVal как предмет, ByVal e как System.EventArgs) регулирует btnNext.Click
        Если Me.BindingContext, то (dsPatient.Tables («пациенты»)). Положение < Me.BindingContext (dsPatient.Tables («пациенты»)). Отсчет - 1 после этого
            Me.BindingContext (dsPatient.Tables («пациенты»)). Положение = Me.BindingContext (dsPatient.Tables («пациенты»)). Положение + 1
            Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables («пациенты»)). Положение + 1
        Закончитесь если
    Закончите подводную лодку

    Приватное Sub btnLast_Click (прислужник ByVal как предмет, ByVal e как System.EventArgs) регулирует btnLast.Click
        Me.BindingContext (dsPatient.Tables («пациенты»)). Положение = Me.BindingContext (dsPatient.Tables («пациенты»)). Отсчет - 1
        Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables («пациенты»)). Положение + 1
    Подводная лодка конца

    Приватное Sub btnPrev_Click (прислужник ByVal как предмет, ByVal e как System.EventArgs) регулирует btnPrev.Click
        Если Me.BindingContext, то (dsPatient.Tables («пациенты»)). Положение > 0 после этого
            Me.BindingContext (dsPatient.Tables («пациенты»)). Положение = Me.BindingContext (dsPatient.Tables («пациенты»)). Положение - 1
            Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables («пациенты»)). Положение + 1
        Закончитесь если
    Закончите подводную лодку

    Приватное Sub btnFirst_Click (прислужник ByVal как предмет, ByVal e как System.EventArgs) регулирует btnFirst.Click
        Me.BindingContext (dsPatient.Tables («пациенты»)). Положение = 0
        Me.txt CurRec.Text = Me.BindingContext (dsPatient.Tables («пациенты»)). Положение + 1
    Подводная лодка конца
    Sub LoadPtData ()

        dsPatient.Clear ()
        Тусклое daPatient как новое SqlClient.SqlDataAdapter («ВЫБЕРИТЕ * ОТ RawData ГДЕ PtName = «» & lstPtName.Text & «» «, conn)

        Попытка
            conn. Раскройте ()
            dapatient. Заполните (dsPatient, «пациенты»)
            conn. Закройте ()
        Задвижка ex как исключение
            MsgBox (ex. Сообщение)
        Попытка конца

        Если txtPtName.DataBindings.Count = 0 после этого
            txtPtName.DataBindings.Add («текст», dsPatient, «Patients.PtName»)
            txtDOB.DataBindings.Add («текст», dsPatient, «Patients.PtDOB», поистине, DataSourceUpdateMode.OnPropertyChanged, ничего, «dd MMM, yyyy»)
            txtSex.DataBindings.Add («текст», dsPatient, «Patients.PtSex»)
            txtPhys.DataBindings.Add («текст», dsPatient, «Patients.PhyName»)
            txtTest.DataBindings.Add («текст», dsPatient, «Patients.Test»)
            txtResult.DataBindings.Add («текст», dsPatient, «Patients.Result»)
            txtUOM.DataBindings.Add («текст», dsPatient, «Patients.UOM»)
            txtCollDate.DataBindings.Add («текст», dsPatient, «Patients.CollectDate», поистине, DataSourceUpdateMode.OnPropertyChanged, ничего, «dd MMM, yyyy»)
            txtCollTime.DataBindings.Add («текст», dsPatient, «Patients.CollectTime»)
        Закончитесь если
    Закончите подводную лодку
class=

Ответ : Следующие и ранее кнопки не работая

Установки политики группы совместного пользования файлами
Установки политики группы ассоциированные с совместным пользованием файлами
Цель установки политики группы

Предотвратите потребителей от делить архивы в пределах их профиля
      

Обусловливает позволены ли потребители делить архивы в пределах их профиля к другим потребителям на их сети. Делить нисколько вида позволен только когда администратор поворачивал дальше совместное пользование файлами на том компьютере.

Если вы включаете эту политику, то потребители не будут делить архивы в пределах их профиля using чудодей. Также, чудодей не создаст долю на %SystemRoot% \ потребители и может только быть использован для того чтобы создать доли SMB на скоросшивателях.

Если вы выводите из строя или не устанавливаете эту политику, то потребители будут делить архивы из их профиля потребителя после того как администратор повернет дальше совместное пользование файлами на том компьютере.



Источник: http://technet.microsoft.com/es-es/library/cc731655%28WS.10%29.aspx
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us