Как обратиться к значению поля в TableAdapter?

Как обратиться к значению поля в TableAdapter?

0

zremas, покажи сначала как ты вообще все сделал. эти как их экстрасенсы в отпуске...

0

это процедура приемки работы

Private Sub RECEIVE_WO()

Dim oPrevent As String
Dim newTraceID As String

If Me.DGV_WO.ActiveRow.Cells("WO_STOP").Val ue.ToString <> "" Then 'obratilsa cherez grid !!!
oPrevent = "not empty"
Else : oPrevent = ""
End If

Try
If Me.TextBoxWOQty.Text = "" Then
MsgBox("Enter a qty to receive")
Exit Sub
End If

If CURRENT_WO = "" Then
Exit Sub
End If

Dim oQTY As Double
oQTY = CType(Me.TextBoxWOQty.Text, Double)

'TO AVOID receiving WO with SERVICE
If oPrevent <> "" Then
MsgBox("You cannot receive WO if there is service assigned", MsgBoxStyle.Exclamation)
Exit Sub
End If


'TO AVOID WO OVER_RECIEVE
If oQTY > REMAINING_QTY_TO_RECEIVE_CURRENT_WO() Then
MsgBox("You cannot receive more than the desired quantity in total", MsgBoxStyle.Exclamation)
Exit Sub
End If

'TO AVOID RECEIVING A WO WITH SOME OPEN REQUIREMENTS
If ALL_MATERIAL_HAS_BEEN_ISSUED_CHECK() = False Then
MsgBox("There are some open Requirements in this WO." & vbCrLf & "This WO cannot be received through this application." & vbCrLf & " Please refer this WO to your Lead Hand for receiving in Visual", MsgBoxStyle.Exclamation)
Exit Sub
End If

Dim a As DataRow

If PART_TRACEABLE_FOR_REC(CURRENT_PART) = True Then 'this is the Part currently working on

QTY_TO_RECEIVE = oQTY 'QTY_TO_RECEIVE--> global


Dim newFTempTracesWO As New FTempTracesWO
newFTempTracesWO.ShowDialog()


If IsNothing(TEMP_TABLE) Then
Exit Sub
End If

For Each a In TEMP_TABLE.Rows 'TEMP_TABLE hold all the TRACES just deal with
'_____________________(AN) if I comment COM, it is necessary to replace it with valid SQL SCRIPT here _________________________


'rsTrace = rs("TRACE_INFO").Value
'rsTrace.AddNew()
'rsTrace("ENTRY_NO").Value = 1
'rsTrace("TRACE_ID").Value = a(1).ToString 'a(1) is the trace
'rsTrace("QTY").Value = a(2).ToString 'a(2) is the qty
'rsTrace("COMMENTS").Value = "Trace created by " & USUARIO & " through SFC-Phase2 App"
'rsTrace.Update()


Next

End If

'___(AN)____Call stored procedures ________________________________________ __
Me.SpAdapter1.KUDU_SFC_RECEIVE_WO(CURREN T_WO, CURRENT_PART, oQTY)




For Each a In TEMP_TABLE.Rows 'TEMP_TABLE hold all the TRACES just deal with
'Me.T_TRACE_TO_UPDATE_NUMBERINGTableAdap ter.FillByPartAndTrace(Me.DsTraces.T_TRA CE_TO_UPDATE_NUMBERING, CURRENT_PART, a(1).ToString) 'a(1) is the trace
' Here I bring the traces just deal with to manually make NUMBERING_ID = PART_ID as it is not done by the COM
'If Me.DsTraces.T_TRACE_TO_UPDATE_NUMBERING. Count > 0 Then 'this table should returm only one row
' MsgBox("Part: " & Me.DsTraces.T_TRACE_TO_UPDATE_NUMBERING( 0).PART_ID & " - Trace: " & Me.DsTraces.T_TRACE_TO_UPDATE_NUMBERING( 0).ID)
'Me.DsTraces.T_TRACE_TO_UPDATE_NUMBERING (0).NUMBERING_ID = Me.DsTraces.T_TRACE_TO_UPDATE_NUMBERING( 0).PART_ID
'Me.T_TRACE_TO_UPDATE_NUMBERINGTableAdap ter.Update(Me.DsTraces.T_TRACE_TO_UPDATE _NUMBERING)
'End If
'Me.DsTraces.T_TEMP_TRACES_FOR_WO_RECEIV ING.

newTraceID = a(1).ToString 'a(1) is the trace

Me.SpAdapter1.KUDU_SFC_INSERT_TRACE(newT raceID, CURRENT_PART, oQTY)
' Me.SpAdapter1.KUDU_SFC_INSERT_TRACE_INV_ TRANS(newTraceID, CURRENT_PART, oQTY)
Me.SpAdapter1.KUDU_SFC_INSERT_TRACE_INV_ TRANS(newTraceID, CURRENT_PART, 1)


Next


Me.SpAdapter1.KUDU_SFC_UPDATE_Received_W O(CURRENT_WO)

'--------This is to fix a problem with the COM obj not populating the NUMBERING_ID field-------------------------------------------------------------------
If PART_TRACEABLE_FOR_REC(CURRENT_PART) = True Then 'this is the Part currently working on
If IsNothing(TEMP_TABLE) Then ' this should not happen.
Exit Sub
End If

For Each a In TEMP_TABLE.Rows 'TEMP_TABLE hold all the TRACES just deal with
Me.T_TRACE_TO_UPDATE_NUMBERINGTableAdapt er.FillByPartAndTrace(Me.DsTraces.T_TRAC E_TO_UPDATE_NUMBERING, CURRENT_PART, a(1).ToString) 'a(1) is the trace
' Here I bring the traces just deal with to manually make NUMBERING_ID = PART_ID as it is not done by the COM
If Me.DsTraces.T_TRACE_TO_UPDATE_NUMBERING. Count > 0 Then 'this table should returm only one row
' MsgBox("Part: " & Me.DsTraces.T_TRACE_TO_UPDATE_NUMBERING( 0).PART_ID & " - Trace: " & Me.DsTraces.T_TRACE_TO_UPDATE_NUMBERING( 0).ID)
Me.DsTraces.T_TRACE_TO_UPDATE_NUMBERING( 0).NUMBERING_ID = Me.DsTraces.T_TRACE_TO_UPDATE_NUMBERING( 0).PART_ID
Me.T_TRACE_TO_UPDATE_NUMBERINGTableAdapt er.Update(Me.DsTraces.T_TRACE_TO_UPDATE_ NUMBERING)
End If
Next
End If
'------------------------------------------------------------------------------------------------------------------------------

Dim oPROPORTION_BEING_RECEIVED_NOW As Decimal
If DESIRED_QTY_CURRENT_WO() = 0 Then
oPROPORTION_BEING_RECEIVED_NOW = 0
Else
oPROPORTION_BEING_RECEIVED_NOW = oQTY / DESIRED_QTY_CURRENT_WO()
End If

' Call GENERATE_LABOR_TICKETS_BY_SQL(oPROPORTIO N_BEING_RECEIVED_NOW)

Me.SpAdapter1.KUDU_SFC_Insert_Labor_Tick et(CURRENT_WO, CURRENT_PART, oPROPORTION_BEING_RECEIVED_NOW, Me.TextBoxWOQty.Text)

MsgBox("WO " & CURRENT_WO & "has been received")


'Clear Screen
Me.TextBoxWOQty.Text = ""
Me.DsWO2.T_REQ.Clear()
Me.LabelCurrentlyDoing.Text = ""
Me.DsTraces.T_REMAINING_TRACES.Clear()

CURRENT_WO = ""

Me.Lab_Current_WO.Text = "Current WO= " & CURRENT_WO

Call REFRESH_RELEASED_WO()
Call REFRESH_WO_REQUIMENTS()
Call REFRESH_WO_OPERATIONS()

Catch ex As Exception
MsgBox("There was a problem with this Work Order and it wasn't received. Please contact your supervisor" & vbCrLf & ex.Message)
End Try
End Sub

Миниатюры

 

0

Орбатился так, а надо бы через значение в самом датасете.
На картинке табладаптер.

0

Ладно пойдем по другому пути, покажи момент обращения к базе и получение от нее ответа.

0

Короче, VB я почти не знаю, VB.net тем более. Пишу в основном на Delphi.

Проект написан не мной, мне необходимо было избавиться от использования COM объектов.
Написал хранимки на сервере, положил в Ds контейнер, или как он на Vb называется - адаптер spAdapter и зарегил там все мои хранимки.

Насколько я понимаю среду - (на картинике):
есть контейнерыв датасурсы, в них всякие адаптеры таблиц, хранимок
есть формы, есть код под формой...
при нажатии на кнопку "Receice WO" - вызывается этот код.

Я был бы весьма благодарен, если бы кто показал на примитиве приложения с Northwind db, как сделать

1) На форме грид, открыть таблицу базы (Employees) на этом гриде,
2) встать на строку,
3) в отдельном окне вызывать в режим редактирования EmployeeName, или любое другое поле из таблицы базы.
4) внутри кода запустить цикл по считыванию значений в глобальную переменную и запуска зранимки по апдейту какой-либо таблицы в NorthWind

Миниатюры

 

0

Вот, например, потребовалось блокировать выполнение этой процедуры.
Я включил в состав формируемого датасета для списка WO - поле WO_STOP.
Его значение может быть NULL, может содержать что-то.
Если там не пусто - то выйти из процы


Больше всего меня достала проблема с неработающим присвоением и проверкой, постоянно ругалась на DBNULL и string вот тут

Потом мне подсказали, что надо .ToString добавить

проблема исчезла.

Но на дельфи я бы обратился к значению поля, а не к значению ячейки
типа такого:

0