|
I am getting info(Cal.SelectedDate) from form Calendar.aspx and sending it to TodayStudy.aspx to populate a datagrid. I am using a session called "GetPKIn". That part works fine, but when I go back to Calendar.aspx and change the info(Cal.SelectedDate) I'm sending to TodayStudy.aspx, the datagrid won't populate with the new info, it just keeps showing what it was populated with originally. The code is below. Thank you!
***********************************************************
Public Class Calendar
Inherits System.Web.UI.Page
Protected WithEvents Header As System.Web.UI.WebControls.Panel
Protected WithEvents Cal As System.Web.UI.WebControls.Calendar
Protected WithEvents lblCheck As System.Web.UI.WebControls.Label
Region "Web Form Designer Generated Code"
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
Session("GetPKIn") = Nothing
End If
End Sub
Private Sub LoadList()
Dim PKSchedule As DataTable = DirectCast(Session("GetPKIn"), DataTable)
If PKSchedule Is Nothing Then
PKSchedule = New DataTable()
End If
Dim sc As New PK.BusinessLogicLayer.Schedule()
PKSchedule = sc.GetSchDescription(Cal.SelectedDate)
Session("GetPKIn") = PKSchedule
End Sub
Private Sub Cal_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cal.SelectionChanged
LoadList()
If Not Page.IsClientScriptBlockRegistered("Next") Then
Dim strScript As String = vbCrLf & _
"" & _
"window.open(""TodayStudy.aspx"", ""_self"", ""true"")" & _
"" & vbCrLf
RegisterClientScriptBlock("Next", strScript) 'go to TodayStudy.aspx(same window)
End If
End Sub
End Class
***********************************************************************
Public Class TodayStudy
Inherits System.Web.UI.Page
Protected WithEvents dgToday As System.Web.UI.WebControls.DataGrid
Protected WithEvents lblCheck As System.Web.UI.WebControls.Label
Protected WithEvents btnCancel As System.Web.UI.WebControls.Button
Protected WithEvents Header As System.Web.UI.WebControls.Panel
Region "Web Form Designer Generated Code"
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
LoadList()
End Sub
Private Sub LoadList()
dgToday.DataSource = Session("GetPKIn")
dgToday.DataKeyField = "ScheduleStamp"
dgToday.DataBind()
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
If Not Page.IsClientScriptBlockRegistered("Next") Then
Dim strScript As String = vbCrLf & _
"" & _
"window.open(""Calendar.aspx"", ""_self"", ""true"")" & _
"" & vbCrLf
RegisterClientScriptBlock("Next", strScript) 'go to Calendar.aspx(same window)
End If
End Sub
End Class
**************************************************************************
Public Shared Function GetSchDescription(ByVal ScheduleStamp As DateTime) As DataTable
Dim ds As DataSet = SqlHelper.ExecuteDataset(ConfigurationSettings.AppSettings(NewRecruit.PK.Web.Global.CfgKeyConnString), "usp_tp_GetPKCheckIn", ScheduleStamp)
Dim dt As New DataTable()
dt.Columns.Add("TesterID")
dt.Columns.Add("StudyNo")
dt.Columns.Add("GroupID")
dt.Columns.Add("ScheduleStamp")
dt.Columns.Add("GroupDuration")
dt.Columns.Add("FacilityID")
dt.Columns.Add("NotToExceed")
dt.Columns.Add("LastName")
dt.Columns.Add("FirstName")
Dim r As DataRow
Dim workRow As DataRow
For Each r In ds.Tables(0).Rows
workRow = dt.NewRow
workRow("TesterID") = r("TesterID")
workRow("StudyNo") = r("StudyNo")
workRow("GroupID") = r("GroupID")
workRow("ScheduleStamp") = r("ScheduleStamp")
workRow("GroupDuration") = r("GroupDuration")
workRow("FacilityID") = r("FacilityID")
workRow("NotToExceed") = r("NotToExceed")
workRow("LastName") = r("LastName")
workRow("FirstName") = r("FirstName")
dt.Rows.Add(workRow)
Next
Return dt
End Function
End Class
End Namespace
|
|
|
|
|
Nevermind, I got it.
But thank you to anyone working on it.
|
|
|
|
|
Regarding the winsock, how to use the winsock in VB6.0 to control the socks proxy? Kindly give source code if possible.
|
|
|
|
|
Part of an app I am developing allows the user to change the color of some GUI items. What is the best way to store that color in XML and then set set the color from the XML at a later date?
TIA
Jon
|
|
|
|
|
I have to write e programm similar to chess in VB.Net.Anybody can tell me where I find sourse for that or maybe help files and sites
|
|
|
|
|
Start by analysing the problem, then break it down into discrete areas. Then break it down some more...then some more....ad infinitum....
Problem with chess is that the logic on the opponent side (assuming it's a computer player) will be a BEAST.....probably some components / classes to help on t'internet though...
"Now I guess I'll sit back and watch people misinterpret what I just said......"
Christian Graus At The Soapbox
|
|
|
|
|
Do a google search on chess +"vb.net" - there are a few examples out there but you might have to convert from another language. I would do the search for you but my IE has been hijacked and I can't access most web pages anymore - I get taken to a Lycos search.
Rugby League: The Greatest Game Of All.
|
|
|
|
|
I'm using DataReport. In designing time, I need more spaces to place my fields in the report, so I change the ReportWidth larger.. and complete my design!
When I run it, this error message appears, it says:
"Report width is larger than the paper width"
please, help me... how to increase the reportwidth or paper size?
I've been trying to find the paper size, but it can't help... what should I do with it..
thanks
Varma
|
|
|
|
|
Can any one tell me how to scroll the webBrowser control automatically through the data.Just like in chat application.
suhasini
|
|
|
|
|
anyone can give me a hint?
thanks
|
|
|
|
|
What are your goals? What features do you want?
I'd suggest you start by breaking your problem in to small manageable portions and then seeking help on any that still remain a problem.
First, write down a list of features that you want, if any are still vague then subdivide it again.
Second, prioritise the list - What is important to you? What is a must have? What is a nice to have?
Third, see if you've left anything out and add it in. Does it all glue together? How will it respond in the event of a system failing somewhere (for example, a network connection goes down)
Now, see if there are any area which you require further assistance on and you can post more specific problems, which more people will help with.
"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar
Coming soon: The Second EuroCPian Event
|
|
|
|
|
ok im using vb 6 and i would like to open the print dialog and and print out a specified form, but id like ot print it out background, color and all, as is. thank you
---------------------
And Like The Wind Our Hero Vanishes Off Into The Distance...
|
|
|
|
|
Does anyone know if you can control the harddrive directly. I want to beable to read or write to a specific sector to see what is contained in that sector. And can this be done with VB 6 or .NET or would you have to use a C type language. Thanks for any help
|
|
|
|
|
i thought with win 2000/xp/nt you couldnt control it directly because of the core design of the os [shell/kernel].
i know sum1 will help you about this, because i sure cant lol.
sum1 can reaffirm this or disprove it, as they will know more about it than me.
|
|
|
|
|
i thought with win 2000/xp/nt you couldnt control it directly because of the core design of the os [shell/kernel].
i know sum1 will help you about this, because i sure cant lol.
sum1 can reaffirm this or disprove it, as they will know more about it than me.
edit: whoops, sry for repost
------------------------
Jordan.
III
|
|
|
|
|
I know that you can not access the memory because of the protected mode that the OS operates at, but im not sure about the hard drive i think it is possible.
|
|
|
|
|
i thought it was all hardware, and in contrary i thought u could access the memory.
we'll have ta wait and c for a more knowledgeable response.
------------------------
Jordan.
III
|
|
|
|
|
It's possible in VB6 and VB.NET, but not easily done. Since the hardware is abstracted from your app, there is no direct way of doing this. You have to go through the drivers sitting in the kernel to get the sectors for you. You'll be declaring a bunch of API calls and structures to get this to work.
C++ is a much better choice...
RageInTheMachine9532
|
|
|
|
|
Hello,
I want to use a grid in VB6 that is capable of being bound to an ADO data source, and also is capable of hosting comboxes and other controls in the grid columns. Do the native Datagrid and Hierarchical FlexGrid in VB6 do this? As far as I can see, all the grids that come with VB are incapable of "hosting" other controls. Any comments or recommendations?
Thanks,
Trimtrom
|
|
|
|
|
|
Looking to find how I can get a remoted object to contact client applications. I need to reference the application from the server process but there is no such thing as referencing an application. How can I get this done?
|
|
|
|
|
you need to have a bidirectional remoting channel.
I think the standard .net channel classes are only unidirectional. Search the web for "bidirectional remoting channel". I've seen such a tutorial but I can't remember where it was.
|
|
|
|
|
If I am not mistaken I just found a simple chat application. I believe it is raising an event on the objects that instantiate em. Is this the way to pull it off?
Thanks for your input Klaus.
|
|
|
|
|
It depends if the chat app is using remoting.
Take a look here: http://www.ingorammer.com/Software/OpenSourceRemoting/BiDirTcpChannel.html
|
|
|
|
|
I get this error:
System.data.datarow.protected sub New(builder as system.data.datarowbuilder)' is not accessible in this context because its 'Protected'.
This Dr is underlined in my code:
Dim dr As New System.Data.DataRow
Here is my code:
Dim sqlconnectionstring As String = "Data Source=Server;User ID=admin;Password=lalala;Persist Security Info=False;Initial Catalog=Oasis"
Dim SqlConn As New System.Data.SqlClient.SqlConnection(sqlconnectionstring)
Dim strTrackingSheet As String = "Select * from Trackingsheet"
Dim datrackingsheet As New System.Data.SqlClient.SqlDataAdapter(strTrackingSheet, sqlconnectionstring)
Dim dsPatient As New System.Data.DataSet
Dim dtNewPat As New System.Data.DataTable
Dim dr As New System.Data.DataRow
SqlConn.Open()
datrackingsheet.Fill(dsPatient, "TrackingSheet")
SqlConn.Close()
Dim PatCB As System.Data.SqlClient.SqlCommandBuilder = New System.Data.SqlClient.SqlCommandBuilder(datrackingsheet)
Anyone know whats goin on? thanks
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
