Hello,
I have a web form that allows the user to move a unit on a
manufacturing router. The user click one of five buttons which each
represent a step on the router. When the user clicks any of the five
buttons, I do a SQL select to gather some data about this unit and
populate a datagrid w/ the resulting data. I want the data in the
datagrid to be displayed to the user, and THEN I want to prompt the
user w/ a messagebox(), that ask them "Do you want to process this
move request? YES or NO". The problem is when I bind the datagrid it
does NOT display on the form until after the user answers the YES or
NO question, even though I load and bind the datagrid before I prompt
the user w/ the MESSAGEBOX() function. What do I need to do, to have
the datagrid data displayed before the MESSAGEBOX pops up, so the user
can see the datagrid data to make the right answer to the MESSAGEBOX?
The code is listed below. Any help will be greatly appreciated.
Thanks...
NOTE: some of the variables used in the functions are declared
earlier
public
user clicks one of the five router step buttons
and the ConfirmRequest() function is called
Private Function ConfirmRequest(ByVal ToOperation As String) As
String
Dim Result1 As Boolean
Dim UpdateDatabaseResponse As String
Dim Message As String = "Do you want to process this move
request?"
Dim Caption As String = "A T T E N T I O N!!"
Dim Buttons As MessageBoxButtons = MessageBoxButtons.YesNo
Dim Result As DialogResult
'Call the function that loads & binds the datagrid w/ this
units data.
Result1 = DispComponentData("PARAM1")
Result = MessageBox.Show(Message, Caption,
MessageBoxButtons.YesNo, _
MessageBoxIcon.Question, MessageBoxDefaultButton.Button1,
MessageBoxOptions.ServiceNotification)
' If the user clicked YES to this response we will proceede to
update
the MFG Items & Active Tables.
If Result = DialogResult.Yes Then
UpdateDbResponse = UpdateDatabase(ToOperation, "parm2",
"parm3")
Return "YES"
Else
Return "NO"
End If
End Function
Private Function DispComponentData(ByVal param1 As String) As
Boolean
Dim myConnection As OleDbConnection
Dim myCommand As OleDbDataAdapter
Dim ds As New DataSet()
Dim ConnStr As String
Dim SQL As String
'Connection syntax
ConnStr = "Provider=OraOLEDB.Oracle.1;Persist Security
Info=False;User ID=sfdm;Password=icc8336;Data
Source=housys.world;Extended Properties="
myConnection = New OleDbConnection(ConnStr)
'DataSetCommand
' N O T I C E: Take the hardcoded values out of this code.
Replace w/ the variables.
SQL = "SELECT b.comppart||' '||b.comprevision AS
COMP_REV,b.CompSFCnumber,NEW_TIME(TO_DATE('010170' ,'mmddrr') +
b.tstamp/86400,'GMT','CST') EnteredDate "
SQL = SQL + "FROM BUILDHISTORY b,ROUTSTEP r "
SQL = SQL + "WHERE b.sfcnumber = 'EA03LDNB2W' "
SQL = SQL + "AND b.step >= 20 "
SQL = SQL + "AND b.status = 'ACTIVE' "
SQL = SQL + "AND r.routername = 'ECG' "
SQL = SQL + "AND b.step = r.step(+) "
SQL = SQL + "ORDER BY b.tstamp"
'SQL = "select * from Masters"
myCommand = New OleDbDataAdapter(SQL, myConnection)
'use Fill method of DataSetCommand to populate dataset
myCommand.Fill(ds, "BUILDHISTORY")
Me.DataGrid1.Visible = True
'Binding a Grid
Me.DataGrid1.DataSource =
ds.Tables("BUILDHISTORY").DefaultView
Me.DataGrid1.DataBind()
Me.DataGrid1.Visible = True
myConnection.Close()
Return True
End Function
