Господа подскажите в чем моя ошибка:
Есть несколько форм например Form1, Form2, они вызывают форму frmClients.

Public Class Form1
Private dsClients As DataSet
...
Dim myfrm As frmClients
myfrm = New frmClients(dsClients)
myfrm.ShowDialog()
...
End Class

Public Class frmClients
Public Sub New(ByRef ds As DataSet)
MyBase.New()
InitializeComponent()
End Sub
Private Sub frmClients_Load(...)
...
Grid1.DataSource = ds
...
End Class
так вот ds равен Nothing, в чем ошибка?
вообще задача такая, при открытии главной формы открыть все данные, т.к. они нужны и в главной форме и дочерних, да и после долгого открытия главной, все остальное должно летать. Или постановка задачи неверна?

Sa
так вот ds равен Nothing, в чем ошибка?


Доброе утро Sa! Спасибо за ответ, но что-то все равно не работает, в
Public Class frmClients, говорит что ds - is not declared.
Чего-то я не понимаю...

Спасибо!!! Теперь эта часть работает:-)
А можно, пользуясь случаем еще один вопрос?
Вот такой:
есть DataSet и DataAdapter
Dim dsSchet As New DataSet
Dim daSchet As New OdbcDataAdapter
...устанавливается connection и т.д. и заполняется датасет
daSchet.Fill(dsSchet, "Schet")
...меняю в нем значения одного поля, предположим вот так:
dsSchet.Tables("Schet").Rows(0).Item("custID") = RetCustID
...и делаю update:
daSchet.Update(dsSchet, "Schet")
смотрю в базу нифига не изменилось, что не так делаю?

Показывает 1.

СУБД-SQL Server, делаю на своей машине пока, под MSDE.
UpdateCommand взял от генератора:
Dim odbcUpC As New OdbcCommand
odbcUpC.CommandText = "UPDATE Schet SET Name = ?, datd = ?, nodoc = ?, custID = ?, Summa = ?, vhodnal = " & _ ... и т.д. вся таблица
odbcUpC.Parameters.Add(New System.Data.Odbc.OdbcParameter("Name", System.Data.Odbc.OdbcType.VarChar, 80, "Name"))
odbcUpC.Parameters.Add(New System.Data.Odbc.OdbcParameter("custID", System.Data.Odbc.OdbcType.Int, 4, "cOrg"))
... и т.д. все поля
daSchet.UpdateCommand = odbcUpC
что такое DDL-script, я к сожалению не знаю(

vladgrigSqlDeleteCommand1 - вот так называются команды для SQL
Как минимум - поменяй провайдера на SQL...
провайдера поменял, не помогло...

Sa
что такое DDL-script, я к сожалению не знаю(

Это скрипт на создание этой таблицы в MSDE.


понятно...не понятно как его создать, может потому что у меня сверху стоит SQL Server 2000 (client), не могу найти где это, даже стыдно говорить...

нашел таки :-)

вот так:
UpdCom.CommandText = "UPDATE Schet SET Name = @Name, datd = @datd, nodoc = @nodoc, custID = @custId" ... и т.д.
UpdCom.Parameters.Add(New System.Data.SqlClient.SqlParameter("@custID", System.Data.SqlDbType.Int, 4, "custID")) ... и т.д.
UpdCom.Connection = ConnSchet
daSchet.UpdateCommand = UpdCom

Sa, спасибо за ответ.
до конца еще не понял в чем была проблема, но посмотрел Profiler-ом, и увидел что Update-ом не уходит нужный параметр, поэтому стал подставлять значение непосредственно в команду апдейта:
Me.UpdCom.Parameters("@nodoc").Value() = txtNodoc.Text
теперь работает.

есть еще вопрос в продолжение темы про передачу ссылок.
Есть User Control, в нем объявлена переменная, и происходит вызов формы, которая в качестве параметра принимает эту переменную :
Public Class KatSelect
Public Shared myID As Integer
...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm As Form
frm = New frmKatSelect(Me.ds, Me.myTblName, Me.myID, Me.myTableStyle)
frm.ShowDialog()
...
End Class
в форме myID присваевается другое значение:
Public Class frmKatSelect
Friend Shared myID As Integer
...
Public Sub New(ByRef ds As DataSet, ByRef myTblName As String, ByRef myID As Integer, ByRef myTs As DataGridTableStyle)
MyBase.New()
Me.myID = myID
...
Private Sub btnEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnter.Click
Dim crm As CurrencyManager = Me.BindingContext(ds, myTblName)
Dim row As DataRowView = CType(crm.Current, System.Data.DataRowView)
Me.myID = row("id")
...
debugger показывает что значение изменилось, как только выхожу из формы, значение myID, меняется на первоначальное, почему?