|
I m setting dataset to main report using PUSH methods. Same way I want to set datasource to on-demand sub report at runtime on the basis of value from main report
Regards
|
|
|
|
|
Dear all,
I'm new to this VB.NET,my platform using now to do the development is Visual Studio 2008 using the VB.NET 2008 Window Form to create a lorry transportation management system.
I'm facing problem with the combobox textchange event now. I'm using MySQL 5.0 with SQLYog v5.29 to develop this system.
The following is a form code for the user to insert the Delivery Order document:
Imports MySql.Data.MySqlClient
Public Class InputDO
Public Shared MyConnString As String = "Server=;Database=logistic_sysdb;Uid=root;Pwd=;"
Public Shared ObjMyConn As New MySqlConnection
Public Shared ObjComm As New MySqlCommand
Public Shared ObjRead As MySqlDataReader
Public Shared SQL As String
Dim ObjAdapter As MySqlDataAdapter
Dim ds As DataSet
Dim dt As DataTable
Dim dt1 As DataTable
Private Sub InputDO_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
ObjMyConn = New MySqlConnection(MyConnString)
'Load the information into Lorry Number Combobox
Try
SQL = "SELECT * FROM lorry_detail"
ds = New DataSet
ObjAdapter = New MySqlDataAdapter(SQL, ObjMyConn)
ObjAdapter.Fill(ds, "Lorry_Number")
dt = ds.Tables("Lorry_Number")
For i = 0 To dt.Rows.Count - 1
ComboBox1.Items.Add(dt.Rows(i).Item(0))
Next
Catch ex As Exception
MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly, "Connection Error !!")
End Try
Try
SQL = "SELECT * FROM company_detail"
ds = New DataSet
ObjAdapter = New MySqlDataAdapter(SQL, ObjMyConn)
ObjAdapter.Fill(ds, "Client_Company")
dt1 = ds.Tables("Client_Company")
Catch ex As Exception
MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly, "Connection Error !!")
End Try
End Sub
Private Sub ComboBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.TextChanged
Dim x As String ' x = The Client Company name that stored at dt1
Dim i As Integer
x = ComboBox2.Text
For i = 0 To dt1.Rows.Count - 1
If x = dt1.Rows(i).Item(1) Then
ComboBox2.Items.Add(dt1.Rows(i).Item(1))
End If
Next
End Sub
End Class
I would like to show the similar Client company dropdown at the combobox while the user is typing the name of the company. I have select all the client company into dt1 from the database,and now how could I check if the user is typing each character into combobox2 will display the similar company name on the combobox?
Beside that,should I used a textbox or combobox for this event is better or any other ideas?
Hope someone can give me some help on this.
Thank you all for reading.
Regards
Drex
|
|
|
|
|
drexler_kk wrote: I have select all the client company into dt1 from the database,and now how could I check if the user is typing each character into combobox2 will display the similar company name on the combobox?
I am not sure if I understand your question
Do you want to auto search (Auto Complete) the results from the combobox? Meaning when you press 'A', it will fetch all the combo items starting with 'A' and so on.
Mubashir
Senior Engineer
Storan Technologies Inc, USA
Every job is a self portrait of the person who did it.
|
|
|
|
|
Yes,thats what I wish the combobox can auto showout all the stuff that match the user type drop down inside the combobox. Do you have any sample how should I do it?
Thanks for replying.
|
|
|
|
|
I have a datagrid view with two columns.There is a context menu which should be disabled when i click on any cell in the second column and also selection should be disabled.
I tried to do this by setting context menu properties for each column accordingly but the menu still appears.
And how to disable select for the the same column?
|
|
|
|
|
On MouseDown, check the column where mouse is clicked. This can be done using HitTest method.
To disable selection of cells in a particular column, you will need to override SetSelectedColumnCore method.
The word "politics" describes the process so well: "Poli" in Latin meaning "many" and "tics" meaning "bloodsucking creatures."
जय हिंद
|
|
|
|
|
I tried the code below,but the result isnt as expected.
Dim hti As DataGridView.HitTestInfo = DataGridView1.HitTest(e.X, e.Y)
column1 = hti.ColumnIndex
If e.Button = Windows.Forms.MouseButtons.Right Then
If hti.ColumnIndex = 1 Then
DataGridView1.ContextMenuStrip = ContextMenuStrip1
DataGridView1.ContextMenuStrip.Enabled = False
DataGridView1.ContextMenuStrip.Visible = False
Else
DataGridView1.ContextMenuStrip = ContextMenuStrip1
End If
End If
When I click on the second column the menu strip still appears but it appears disable.So the enabled=false is fine but why isn't the visible= false working?
|
|
|
|
|
Instead of taking this much pain, just reinitialize the contextmenustrip for the second column. Change the following C# code to VB.
this.dataGridView1.ContextMenuStrip = oContextMnuStrip;
this.dataGridView1.Columns[1].ContextMenuStrip = new ContextMenuStrip();
You will not need any extra code then.
The word "politics" describes the process so well: "Poli" in Latin meaning "many" and "tics" meaning "bloodsucking creatures."
जय हिंद
|
|
|
|
|
Ok..thanks alot.Regarding disabling the column selection where is SetSelectedColumnCore method found in vb.net?
|
|
|
|
|
It is there in the DataGridView class. Since it is protected virtual method, you will need to inherit the DataGridView class in order to override.
The word "politics" describes the process so well: "Poli" in Latin meaning "many" and "tics" meaning "bloodsucking creatures."
जय हिंद
|
|
|
|
|
Ok..that sounds a little complicated for me,is there any other simpler way or do you have any code samples for it.
Also after i select a cell and click on the context menu,the cell at 0,0 gets selected by default.I dont want any cell to get highlighted unless i click on it.How can this be done?
|
|
|
|
|
Sohaib_A wrote: Ok..that sounds a little complicated for me,is there any other simpler way or do you have any code samples for it.
Cant think of any other way.
Sohaib_A wrote: Also after i select a cell and click on the context menu,the cell at 0,0 gets selected by default.I dont want any cell to get highlighted unless i click on it.How can this be done?
Setting focus might work out.
The word "politics" describes the process so well: "Poli" in Latin meaning "many" and "tics" meaning "bloodsucking creatures."
जय हिंद
|
|
|
|
|
Hello
I am using VS .NET 2005 with the built-in Crystal Reports to write a Windows Forms / VB.NET based application.
I have designed the report .RPTs using the DataSet available in the design environment. Additionally, I have also inserted some Text Objects and Unbound Fields onto the report.
1. Is there a way I can pass on values to these objects / fields at run-time, through code (no Parameter fields)?
2. Also, how do I populate the Special fields like "Report Title" etc?
Please help! Its a desperate situation for me 
It would be great if you can illustrate with some code samples.
Thanks
|
|
|
|
|
I don't use CrystalReports, but what I could gleen from the web resulted in this:
Dim myReport As New SomeReport
myReport.DataDefinition.FormulaFields["UnboundFieldName"].Text = DateTime.Now.ToString()
|
|
|
|
|
Try this on for size....
Dim objReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim tReportName As String = "Prescription Evaluation"
Dim bCreateSchema As Boolean
'bCreateSchema = True ' ***** TESTING ONLY
Dim tTemp As String = txtClientName.Text
tTemp = Replace(tTemp, "'", "~")
objReport = New cryCLPrescriptioinForEvaluationChild
tReportName = "Prescription Evaluation Child"
' set any passed variables
Dim iII As Integer = 0
For iII = 0 To objReport.DataDefinition.FormulaFields.Count - 1 Step 1
Select Case objReport.DataDefinition.FormulaFields(iII).Name
Case "ClientName"
objReport.DataDefinition.FormulaFields(iII).Text = "'" & tTemp & "'"
Case "DOB"
objReport.DataDefinition.FormulaFields(iII).Text = "'" & datDateofBirth.Text & "'"
Case "MedicalDate"
objReport.DataDefinition.FormulaFields(iII).Text = "'" & datMedicalDate.Text & "'"
End Select
Next iII
BTW Take note of what I did at the top where I striped out the ' in any text that you are going to be passing in... It will freak out Crystal if you give it an apostrophe the work around we use is to replace the ' with ~ and then handle that in the Crystal formula for the fields, that is probably not the best way but it works.
Humble Programmer
|
|
|
|
|
Hi
I have some code in vb6 and I am unable to convert into into vb.net can some body help me...
UnRGB picImage.Point(r, c), clrr, clrg, clrb
Private Sub UnRGB(ByVal color As OLE_COLOR, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte)
r = color And &HFF&
g = (color And &HFF00&) \ &H100&
b = (color And &HFF0000) \ &H10000
End Sub
where picimage is the picturebox and clrr,clrg and clrb are the variables for RGB please some one help...
|
|
|
|
|
Before I attempt to give you an answer, or point you in the right direction.
Please confirm that the VB6 code is meant to take one pixel from the picturebox and get the red, green and blue components for the color in that pixel.
Henry Minute
If you open a can of worms, any viable solution *MUST* involve a larger can.
|
|
|
|
|
yes it take one pixel from picturebox and plz also tell me how to write the UNRGB method in vb.net
|
|
|
|
|
The only thing that I would add to Dave Ks' answer (below)
is that you cannot get the pixel from the picturebox, you have to get it from the PictureBox.Image property and cast it to a Bitmap.
Henry Minute
If you open a can of worms, any viable solution *MUST* involve a larger can.
|
|
|
|
|
yes I agree you dear that picturebox does not have getpixel property well that problem has solved now I have trouble to perform this code in vb.net
Private Sub UnRGB(ByVal color As System.Drawing.Color, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte)
r = color And &HFF
g = (color And &HFF00) \ &H100
b = (color And &HFF0000) \ &H10000
End Sub
|
|
|
|
|
You don't need it! Once you have the Color from GetPixel, you already have everything this code does! Check the R, G, and B properties of the Color you got back.
|
|
|
|
|
It's easily done using the methods already built in to the Bitmap class. You don't even need this function. Your're calling this with the color of a pixel already, so you already have the R, G, and B properties of the color.
Dim pixelColor As Color = MyBitmap.GetPixel(x, y)
Dim R As Byte = pixelColor.R
Dim G As Byte = pixelColor.G
Dim B As Byte = pixelColor.B
|
|
|
|
|
but dear what about this code...
Private Sub UnRGB(ByVal color As OLE_COLOR, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte)
r = color And &HFF&
g = (color And &HFF00&) \ &H100&
b = (color And &HFF0000) \ &H10000
End Sub
how i Perform Loggical And operation....
|
|
|
|
|
sarfarazaliqureshi wrote: but dear what about this code...
You have misunderstood.
Dim R As Byte = pixelColor.R
Dim G As Byte = pixelColor.G
Dim B As Byte = pixelColor.B
Is that code
Henry Minute
If you open a can of worms, any viable solution *MUST* involve a larger can.
|
|
|
|
|
Actually it is part of Steganography project and I need to Perform This And operation so that I can Store data at Random ...
r = color And &HFF
g = (color And &HFF00) \ &H100
b = (color And &HFF0000) \ &H10000
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
