Crystal report всегда запрашивает логин когда VB.NET extrated exe установлен и запущен на клиентском ПК
Отчет Crystal всегда спрашивают логин, когда vb.net extrated EXE-файл установить и запустить на клиентском компьютере. Я использовал vb.net с базой данных access.
Код приведен ниже . Пожалуйста, помогите исправить это.
Штрих-код публичного класса
Private Sub btnSearch_Click(ByVal sender As System.Объект, бывал е как система.EventArgs) обрабатывает btnSearch.Щелчок
Dim stringFormula как строка
CrystalReportViewer1.ReportSource = Приложение.StartupPath + "\CRbarcode1.rpt"
Если CheckBox1.Checked = True, То
Если Не Струна.IsNullOrEmpty(Me.txtSearch.Текст) Затем
stringFormula = "{книга.BookTitle} Например '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {книга.Автор} как '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {книга.JointAuthors} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {Book.Subject} как '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {книга.Ключевое слово} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {книга.Publisher} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {книга.PublishingYear} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {книга.SupplierName} как '*" & txtSearch.Text.ToString() & "*'"
Еще
stringFormula = ""
Конец, Если
Еще
stringFormula = "{книга.EntryDate} >= #" & Me.DateTimePicker1.Value.ToShortDateString & "#"
stringFormula &= "и {книга.EntryDate} <= #" & Me.DateTimePicker2.Value.ToShortDateString & "#"
Конец, Если
CrystalReportViewer1.SelectionFormula = stringFormula
CrystalReportViewer1.Обновить()
CrystalReportViewer1.RefreshReport()
Конец Подводной Лодки
Что я уже пробовал:
Crystal Report всегда запрашивает логин когда vb.net extrated exe установлен и запущен на клиентском ПК
Код приведен ниже . Пожалуйста, помогите исправить это
Штрих-код публичного класса
Private Sub btnSearch_Click(ByVal sender As System.Объект, бывал е как система.EventArgs) обрабатывает btnSearch.Щелчок
Dim stringFormula как строка
CrystalReportViewer1.ReportSource = Приложение.StartupPath + "\CRbarcode1.rpt"
Если CheckBox1.Checked = True, То
Если Не Струна.IsNullOrEmpty(Me.txtSearch.Текст) Затем
stringFormula = "{книга.BookTitle} Например '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {книга.Автор} как '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {книга.JointAuthors} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {Book.Subject} как '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {книга.Ключевое слово} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {книга.Publisher} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {книга.PublishingYear} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " или {книга.SupplierName} как '*" & txtSearch.Text.ToString() & "*'"
Еще
stringFormula = ""
Конец, Если
Еще
stringFormula = "{книга.EntryDate} >= #" & Me.DateTimePicker1.Value.ToShortDateString & "#"
stringFormula &= "и {книга.EntryDate} <= #" & Me.DateTimePicker2.Value.ToShortDateString & "#"
Конец, Если
CrystalReportViewer1.SelectionFormula = stringFormula
CrystalReportViewer1.Обновить()
CrystalReportViewer1.RefreshReport()
Конец Подводной Лодки