|
halllooo
I create report with list...I have 2 list. list1 is main list, list1 have list2.
list1 group by year, in list1 I have textbox sum(SIZE) -> group by year
in list2 group by treeage , in list2 I have textbox, the value is SUM(SIZE)-> group by treeage / SUM(SIZE) group by year.
me problem is, how get data from different list in different group.
|
|
|
|
|
Hi!
In my classic asp page if the session time out and user try to interact with the system it redirect to login page but once it logs in it doesnt redirect to earlier request made by user but need to start from beginning again. is there any way i could redirect to previous requested page.
please help
-- modified at 2:03 Tuesday 30th October, 2007
|
|
|
|
|
This is a question for the ASP.NET Forum. It really doesn't have anything to do with VB or VB.NET.
|
|
|
|
|
DataGridView Help... Manual Loading of ACCESS Records into DataGridView
I have read such an article and code about mannual loading of records from database into datagridview not by means of "DataReader and FOR LOOP" looping process to each rows and cells to put each corresponding value..
instead? he just use an OleDataAdapter to fill a DataTable and set the "DatagridView.AutoGenerateColumns = false" then he set DataGridView.DataSource = DataTable that he made..
for him it works.. but for me i dont know what's lacking in my code.. there's no error occur but the records doesn't display inside my pre-defined column inside my datagridview.. instead? it just generate a blank row with the same rowCount of my table inside my database..
but when i set my DataGridView.AutoGenerateComlumn = true?
then it display on system way.. but not in the way i wanted it to be display inside my custom column inside the datagridview....
here's my sample code...
************
Dim oleDataAdapter1 As OleDbDataAdapter
Dim OleCommandBuilder1 As OleDbCommandBuilder
Dim dbDataSet As New DataSet()
Dim tempDataTable As DataTable = dbDataSet.Tables.Add("tempTable")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
oleConnection.ConnectionString = dbConnectionString
oleConnection.Open()
oleCommand = New OleDbCommand("Select * From tempTable", oleConnection)
oleDataAdapter1 = New OleDbDataAdapter(oleCommand)
OleCommandBuilder1 = New OleDbCommandBuilder(oleDataAdapter1)
oleDataAdapter1.Fill(tempDataTable)
With DataGridView1
.AutoGenerateColumns = False
.DataSource = tempDataTable
End With
Catch ex As Exception
MsgBox(ex.ToString())
Finally
oleCommand.Connection.Close()
End Try
End Sub
**************
Note:
I have 4 column created inside the datagridview..
columnName(ID,NAME,DATE,AGE) dataType(string,string,date,number)
I know.. you can laugh at me.. just can't figured it out.. ehehe... please help...
Please anyone there who has much deeper experience and knowledge in vb programming who can help me with this??? please.. a lot of appreciation in advance... please...
|
|
|
|
|
What does the column generation code look like?? You're probably missing setting the DataPropertyName for each column. This tells the column which column in the DataSource to bind to.
|
|
|
|
|
Sorry I'am from Mexico, my english es very mistaken.
I need mix Assembly language with VB 2005.
I need get a information of the PC ( RAM, HD size ) with
a aplication assembler and display the information in my
WinForm of Visual Basic 2005.
thanks for your aid !!!
|
|
|
|
|
|
You can't mix assembler into a VB.NET app. Besides, what you want can be accomplished much easier with Windows Manangement Instrumentation (WMI) and the classes in System.Management namespace.
|
|
|
|
|
Sorry.
Can I connect a program of assembly language to my application in VB ?
Scan my PC from the program assembly and connect to ny aplication. is it possible?
sorry, my english is very bad.
Mexico
OrLaNdO HeRReRa
|
|
|
|
|
rammsteinohr wrote: Can I connect a program of assembly language to my application in VB ?
All native machine code is already in machine language. You can write assembly code that is in a .dll and called from .NET. How to do so is beyond a forum post. There is an article around here at CP about it.
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Yeah, it can be done. But how you communicate with that assembly code is entirely up to how that code is written. Without knowing how the assembly code expects you to call it and receive return values, it's impossible to say.
|
|
|
|
|
so, as I can create a DLL in assembly language?
where search Information about it ?
give me the URL or LINK please !!!
|
|
|
|
|
There is very little on assembly language under Windows because hardly anyone ever uses it.
Why are you fixated on assembly?? What are you doing that makes you think you require it?
|
|
|
|
|
Is a School project, is hibrida or hybrid programming ("programacion hibrida" in spanish). The teacher say: "Use Assembly Code with another language (mixing)". And i want programmin VB 2005 with Assembly language......
But the information is little.....if you can help me....i will happy
Thanks !!!
|
|
|
|
|
You're going to have to create two seperate project. An assembly language project compiled with an assembler, or you could write in-line assembly into a C++ component, which compiles to a .DLL, and a seperate VB.NET project to consume the library functions you write.
Google for "Windows assembly language" if you want examples.
|
|
|
|
|
Hi,
I haven't programmed in VB6 and I have this project to convert from vb6 Vvb.net
Can you help me to convert the following lines to vb.net
Public Declare Function DirectoryNumToTapiDeviceID Lib "tapihlpr" _
(ByVal hLineApp As Long, ByVal szDN As String) As Long
and
Public SysOptions As tSysOptsRec
Public iSystemStatus As Integer
' Per call data elements
Public iMaxChannel As Integer
Public iMinChannel As Integer
Public CallData() As tCallDataRec
thanks
|
|
|
|
|
Public Declare Function DirectoryNumToTapiDevice Lib "tapihlpr" ( _
ByVal hlineApp As Integer, ByVal szDN As String) As Integer
Public SysOptions As tSysOptsRec
Public iSystemStatus As Short
' Per call data elements
Public iMaxChannel As Short
Public iMinChannel As Short
Public CallData() As tCallDataRec
Of course, this does NOT mean that the code will actually work.
|
|
|
|
|
In vb6 all the variables passed to a function are by default by ref so when you have to pass some variable by value you have to give byval explicitly
In vb.net all variables are by default by val, so remove byval it may work
For the variable declaration
Where are u declaring these variables
You can use global for modules then the variable will be accessible in whole of the application
For a form file you can declare at the top in the class to be accessible by all function
Good luck
|
|
|
|
|
I have a bit problem here in ReportViewer.. I have this project where I should translate or convert the MONEY in number(in a textbox) into words(in another textbox) (e.g. 1234--> one thousand two hundred thirty four).
Is it possible to do this in a report document(.rdlc file)?
|
|
|
|
|
You could write a custom function with your report definition to do this.
Do a Google search for code to convert a value into words if you are unsure how to do this.
Paul Marfleet
|
|
|
|
|
In crystal report try to use ToWords(number) with a little customization
Salman Sheikh
|
|
|
|
|
The question refers to SSRS, not Crystal Reports. There is no built-in function to convert a number to words in SSRS. The poster will have to write a custom function within their report as I have suggested.
Paul Marfleet
|
|
|
|
|
Ok thanks Mr.Marfleet..
I'll try to search for it.. I really just don't have any ideas to it yet eh.
|
|
|
|
|
Which bit are you struggling with? The logic for converting a number to words? This is a common requirement and a Google search should yield plenty of results, although you may have to translate to VB.
To add an implementation of this function to your report definiton, bring up the Property dialog for your report and select the 'Code' tab. Add the code for your function in the box. You can now call your function from an expression using the syntax Code.<myfunction> .
Paul Marfleet
|
|
|
|
|
I got a code here for converting numeric value into words..
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
<br />
Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click<br />
txtResult.Text = NumberToString(CDbl(txtNumber.Text))<br />
End Sub<br />
<br />
' Return a word representation of the whole number value.<br />
Private Function NumberToString(ByVal num As Double) As String<br />
' Remove any fractional part.<br />
num = Int(num)<br />
<br />
' If the number is 0, return zero.<br />
If num = 0 Then Return "zero"<br />
<br />
Static groups() As String = {"", "thousand", "million", "billion", "trillion", "quadrillion", "?", "??", "???", "????"}<br />
Dim result As String = ""<br />
<br />
' Process the groups, smallest first.<br />
Dim quotient As Double<br />
Dim remainder As Integer<br />
Dim group_num As Integer = 0<br />
Do While num > 0<br />
' Get the next group of three digits.<br />
quotient = Int(num / 1000)<br />
remainder = CInt(num - quotient * 1000)<br />
num = quotient<br />
<br />
' Convert the group into words.<br />
result = GroupToWords(remainder) & _<br />
" " & groups(group_num) & ", " & _<br />
result<br />
<br />
' Get ready for the next group.<br />
group_num += 1<br />
Loop<br />
<br />
' Remove the trailing ", ".<br />
If result.EndsWith(", ") Then<br />
result = result.Substring(0, result.Length - 2)<br />
End If<br />
<br />
Return result.Trim()<br />
End Function<br />
<br />
' Convert a number between 0 and 999 into words.<br />
Private Function GroupToWords(ByVal num As Integer) As String<br />
Static one_to_nineteen() As String = {"zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eightteen", "nineteen"}<br />
Static multiples_of_ten() As String = {"twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety"}<br />
<br />
' If the number is 0, return an empty string.<br />
If num = 0 Then Return ""<br />
<br />
' Handle the hundreds digit.<br />
Dim digit As Integer<br />
Dim result As String = ""<br />
If num > 99 Then<br />
digit = num \ 100<br />
num = num Mod 100<br />
result = one_to_nineteen(digit) & " hundred"<br />
End If<br />
<br />
' If num = 0, we have hundreds only.<br />
If num = 0 Then Return result.Trim()<br />
<br />
' See if the rest is less than 20.<br />
If num < 20 Then<br />
' Look up the correct name.<br />
result &= " " & one_to_nineteen(num)<br />
Else<br />
' Handle the tens digit.<br />
digit = num \ 10<br />
num = num Mod 10<br />
result &= " " & multiples_of_ten(digit - 2)<br />
<br />
' Handle the final digit.<br />
If num > 0 Then<br />
result &= " " & one_to_nineteen(num)<br />
End If<br />
End If<br />
<br />
Return result.Trim()<br />
End Function<br />
<br />
End Class<br />
---the code works but not on with decimals.. and i hope i can also put currencies such as dollars and cents..
I had a hard time on the logic here..
|
|
|
|