|
My SQL is limited at best, but I'm sure there's a way you can count occurances in the dataset. I know that ""SELECT DISTINCT " & psFieldName & " FROM " & sTable" will produce 1 result for each unique field name so there should be some variation of this that could give you a count. Sorry I can't be of more help.
|
|
|
|
|
I'll play around with that and see what I can do. I was looking for along the lines of iterating throught the result set after it's been fetched, but I suppose SQL can work, too.
-------------------
abort, retry, fail?
|
|
|
|
|
If you query it directly on the database something like the following should do the job:
SELECT NAME, COUNT(ID) FROM TableName GROUP BY NAME
If this is not possible something like this should do the job:
Dim hash As Hashtable
For Each row As DataRow In dataTable.Rows
Dim name As String = row("NAME").ToString()
If hash.ContainsKey(name) Then
hash.Add(name, 1)
Else
hash(name) = Convert.ToInt16(hash(name)) + 1
End If
Next
Dim result As String = ""
For Each name As String In hash.Keys
result = name & " occured: " & hash(name).tostring() & " times"
Next
|
|
|
|
|
thanks for your input. getting close, but now quite there - I've never used hash tables before, so I'm not sure how to handle this error:
Item has already been added. Key in dictionary: "TEST NAME" Key being added: "TEST NAME"
<br />
Line 72: Dim name As String = row("TLH_1_317").ToString()<br />
Line 73: If hash.ContainsKey(name) Then<br />
<font color="red">Line 74: hash.Add(name, 1)</font><br />
Line 75: Else<br />
Line 76: hash(name) = Convert.ToInt16(hash(name)) + 1<br />
your thoughts?
-------------------
abort, retry, fail?
-- modified at 12:09 Monday 10th October, 2005
|
|
|
|
|
all i had to do was change the
If hash.ContainsKey(name) Then
to
If Not hash.ContainsKey(name) Then
Thanks!
-------------------
abort, retry, fail?
|
|
|
|
|
Sh*t happens when quickly coding something out of the head 
|
|
|
|
|
I have a popup menu handler. How do I figure out (preferrably the index) of the actual menu item selected?
Public Sub MyHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
' Need to know the index of the item selected here...
end sub
|
|
|
|
|
There is no "index" property per se, you can create a select and evalute the name of the sender:
Select Case Sender.Name
Case "lblSlot1"
end select
Or you could set the Tag property of each label to your index value then take the value of the tag:
piIndex = Val(Sender.Tag)
Those are my two best ideas anyway 
|
|
|
|
|
Richard,
Thanks, for the idea but what I am refering to is did they select menu item #1, Menu items #2 and so-on.
I am sure these is a simple way, just have not seen it in the MS documentation yet...
Mike
|
|
|
|
|
The answer remains the same, the "sender" object is what was clicked. Evaluate the name you gave the menu item or set it's Tag property and look at that.
|
|
|
|
|
Each menu item can have methods that are triggered upon selection. If I have a popup menu (aka context menu) with three items: "One", "Two" and "Three" and I select menu item "Two" from the menu then my program will receive a "Two_Clicked()" event. You need to trap that event in your program and then (possibly) call your own generic handler from that event. That way you always know which item was selected.
...Steve
|
|
|
|
|
I have a handler for a context menu
Public Sub MyHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
|
|
|
hello everyone,
i would like to code an application that can simply answer a call using the modem and log which keys (or in other words which dtmf commands are sent) are pressed. it's something i have never worked into so i am in need of help. through several web sites i've checked into this but the results i got (sample codes or articles) were not satisfactory. so if someone could feed me a sample that can simply log the buttons pressed by the caller or an address of an idiotproof article that would be useful i would be really grateful cause i simply couldn't figure out where to start. can there be a basic method of processing such commands from a modem, non-dependent of the chipset or does it have to vary with every different model?
thanks
|
|
|
|
|
This is done through TAPI (Telephony API). The problem is that not all modems support this and there is no standard classes in the .NET Framework that wrap TAPI. You have to use a third party library the supports this. The problem here is that not a libraries completely wrap the TAPI API's. There are also multiple versions of TAPI, each with it's own feature set that it supports.
THe bottom line is that there is no "idiotproof" article that explains al this. The topic is just too broad. You'll have to do a bunch of reasearch on the support you need, then find a library that wraps the sections of the TAPI API that you need, and, hopefully, that library will come with documentation on how to use it.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
What is work with this?
If Me.txtClientId.Text = "" Then
Me.CheckBox1.Value = False ' unchecked
Else
Me.CheckBox1.Value = True ' checked
End If
|
|
|
|
|
There's nothing wrong with the code itself, where the code is may be of more relevance. If this code is in your checkbox1 click event it may generate an infinite loop. More information on which language you're using and the type of problem or the type of solution you're needing would be helpful 
Note: For VB6 the .Value property is not a boolean as the option button is, it may be one of three values: vbChecked, vbUnchecked or vbGrayed.
|
|
|
|
|
I wanted to import an info. from Excel (worksheet.range("A40"), for example. Let say, if this cell is blank, a check box remains unchecked. If this cell contains something, I want a check box to be checked. Thank you so much.
|
|
|
|
|
Assuming that an empty cell is the same as "" then change your " = True" to " = vbChecked" and your " = False" to " = vbUnchecked".
|
|
|
|
|
It still does not work..... it just grayed out
If Me.txtClientId.Text = "" Then
Me.CheckBox1 = vbUnchecked ' unchecked
Else
Me.CheckBox1.Value = vbchecked ' checked
End If
|
|
|
|
|
Try enabling the control!!! You've also left off the ".Value" in the first Checkbox1 assignment. Also check that .Text comparision is valid. Maybe this should be .Text = vbNullString ???
...Steve
|
|
|
|
|
are you working under Vb.net? or Vb 6.0
i think you just write this as
If Me.txtClientId.Text.length >0 Then
Me.CheckBox1.checked = true ' checked
Else
Me.CheckBox1.checked = false ' checked
End If
I am Entry level person
|
|
|
|
|
Upgrading VB6 to .NET has been so pleasant.... NOT
In VB6 I could make a control array, when an operator clicked on an element I could set a variable that told me which control it was then I could pop up a menu where the user selected a menu item. When they did I looked at the control they were pointing to and did what I needed to do. (I have 100+ slots and the user needs to be able to look an a particular one, each of which is represented as a label or text box on screen)
OK in .NET, no control arrays, so I build 100+ controls manually, then I arrange them on screen (each configuration could be different), once again hundreds of lines of code as there are no arrays, then I try to trap the one clicked for the popup menu, my next joy has arrived....
I was hoping that someting like this would work:
Private Sub lblSlots5_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblSlots5.Click
g_selectedslot = 5
End Sub
The hope being I would set g_selectedSlot before the menu pops up... for some reason it does not seem to work that way.
Yes, I did try MouseHover and MouseDown.
any ideas?
Thanks in advance, the rest of my bottle of Advil to anyone who can help...
|
|
|
|
|
I'm new to .NET myself after years of VB programming (4 and up) and that's my biggest complaint about .NET is the events appear to be fired in a really haphazard fashion (my personal biggest pet peeve is Form_Load may or may not be the first event to fire).
You can create one event to handle all of the mouseclicks by adding them to the event:
Private sub MouseClick(Byval sender as...) handles lblSlot1.Click, lblSlot2.Click, lblSlot3.click, ...
MsgBox("Label Clicked = " & sender.Name)
End Sub
Personally, I would ask someone here show you how to create controls at run time and assign them to an event handler, I'm a little fuzzy as to how to do that myself.
|
|
|
|
|
control array:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
Dim poLbl() As Label<br />
Dim piIndex As Integer<br />
Dim piX As Integer<br />
Dim piY As Integer<br />
<br />
ReDim poLbl(5)<br />
piX = 10<br />
piY = 10<br />
For piIndex = 0 To 5<br />
poLbl(piIndex) = New Label<br />
poLbl(piIndex).Parent = Me<br />
poLbl(piIndex).Height = poLbl(piIndex).Font.Height<br />
poLbl(piIndex).Left = piX<br />
poLbl(piIndex).Top = piY<br />
poLbl(piIndex).AutoSize = True<br />
poLbl(piIndex).Text = "Dynamically Created " & piIndex<br />
poLbl(piIndex).Visible = True<br />
poLbl(piIndex).Tag = piIndex.ToString<br />
AddHandler poLbl(piIndex).Click, AddressOf ClickHandle<br />
piY = piY + poLbl(piIndex).Height + 5<br />
Next<br />
End Sub<br />
<br />
Public Sub ClickHandle(ByVal sender As System.Object, ByVal e As System.EventArgs)<br />
MsgBox("Clicked #" & sender.Tag)<br />
End Sub
|
|
|
|
|
Perfect, now if I can just figure out the menu thing... thanks
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
