Auto Generated Code in vb.net + Search Function

winwin0609

大家好，請問哦～我在VS 2008裡，做auto-generate number.
可是怎麼沒有反應呢？

我現在有2個form
form1 and form2

當我按form1的button add時，他會進入form2.

so, form2 的 id number 會跑加一.

這是form1的button

1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2.               code = code + 1
   
3.         If code >= 1 And code <= 9 Then
   
4.             code = "B" & "000" & code
   
5.         ElseIf code >= 10 And code <= 99 Then
   
6.             code = "B" & "00" & code
   
7.         ElseIf code >= 100 And code <= 999 Then
   
8.             code = "B" & "0" & code
   
9.         ElseIf code <= 9999 Then
   
10.             code = "B" & code
    
11.         End If
    
12. 
    
13.     End Sub

复制代码

這是form2的form_load

1.     Private Sub OrderForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
2.       
   
3. 
   
4.         txtcode.Text = code
   
5. 
   
6. 
   
7. 
   
8.     End Sub

复制代码

可是沒有反應，是我弄錯了嗎？請大家教教我。謝謝

doktorkoo

你有没有declare 那个code 的variable?

doktorkoo

你有没有declare 那个code 的variable?

winwin0609

你有没有declare 那个code 的variable?
doktorkoo 发表于 5-5-2010 11:51 AM

   有，我有declare.我放在module

doktorkoo

回复 4# winwin0609

在end if 下面放 OrderForm.showDialog(me)看看

winwin0609

回复  winwin0609

在end if 下面放 OrderForm.showDialog(me)看看
doktorkoo 发表于 5-5-2010 07:02 PM

   好，謝謝

winwin0609

回复  winwin0609

在end if 下面放 OrderForm.showDialog(me)看看
doktorkoo 发表于 5-5-2010 07:02 PM

Form 1

1.   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2.          Me.Close()
   
3. 
   
4. 
   
5.         code = code + 1
   
6.         If code >= 0 And code <= 9 Then
   
7.             code = "B" & "000" & code
   
8.         ElseIf code >= 10 And code <= 99 Then
   
9.             code = "B" & "00" & code
   
10.         ElseIf code >= 100 And code <= 999 Then
    
11.             code = "B" & "0" & code
    
12.         ElseIf code <= 9999 Then
    
13.             code = "B" & code
    
14.         End If
    
15. 
    
16.         OrderForm.ShowDialog()
    
17. 
    
18.     End Sub

复制代码

Form2

1. Private Sub OrderForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
2. 
   
3.         txtcode.Text = code
   
4. 
   
5.     End Sub

复制代码

它可以show出B0001
但是，但我重新進過時，他會出現這個error



這是怎麼回事呢？

doktorkoo

回复 7# winwin0609


   你的code declare 成double,哪里可以放string   double 的variable是不能收string 的

1. code(double) = "B"(string) & "000" & code

复制代码

hooi1983

回复 1# winwin0609

对你的问题没意见，因为我太差了不过对你的这个 coding 就有小小的意见

1.         If code >= 1 And code <= 9 Then            code = "B" & "000" & code        ElseIf code >= 10 And code <= 99 Then            code = "B" & "00" & code        ElseIf code >= 100 And code <= 999 Then            code = "B" & "0" & code        ElseIf code <= 9999 Then            code = "B" & code        End If

复制代码

lz 可以简化成

1. dim strCode as string=string.format("B{0:0000}",code)

复制代码

winwin0609

回复  winwin0609


   你的code declare 成double,哪里可以放string   double 的variable是不能收stri ...
doktorkoo 发表于 6-5-2010 08:24 PM

哦，可以了。謝謝你

winwin0609

你們有用過crystal report嗎？在 Visual Studio 2008.你們懂得那一個網站是有這個類型的tutorial嗎？我有試過connect database, 把database裡的table show 出來了。問題是怎樣把table裡需要的東西show出來？

winwin0609

這個問題，我做很多次都是一樣。所以想請大哥大姐的幫忙。

我要從database,search desc based on code.

1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   
2.         Item = ItemTxt.Text
   
3.         qty = QTYTxt.Text
   
4.         ds = Deslbl.Text
   
5. 
   
6.         sqlconn = New SqlConnection("Data Source=192.168.1.102\SQLEXPRESS;Initial Catalog=Demo;User Id=HK;Password=hk;")
   
7. 
   
8.         Dim sqlda As SqlDataAdapter = New SqlDataAdapter
   
9. 
   
10.         sqlconn.Open()
    
11.         sqlda.SelectCommand = New SqlCommand("Select FDesc from tblFoodList where FCode = @FoodCode ", sqlconn)
    
12.         sqlda.SelectCommand.Parameters.Add("@FoodCode", SqlDbType.VarChar).Value = ItemTxt.Text
    
13. 
    
14. 
    
15.         sqlda.Fill(OrderDS, "OrderInfo")
    
16.         OrderDT = OrderDS.Tables(0)
    
17.         dgvOrder.DataSource = OrderDT
    
18. 
    
19.         If OrderDT.Rows.Count = 0 Then
    
20.             MsgBox("No this type of food!")
    
21.             ItemTxt.Focus()
    
22.             ItemTxt.Select()
    
23.             ItemTxt.SelectAll()
    
24.             QTYTxt.Text = ""
    
25. 
    
26.         Else
    
27. 
    
28.             ds = OrderDT(0)(0)
    
29.             DataGridView1.Rows.Add(New String() {Item, qty, ds})
    
30. 
    
31.             dgvOrder.Refresh()
    
32. 
    
33. 
    
34. 
    
35.         End If
    
36.         sqlconn.Close()
    
37. 
    
38. 
    
39. 
    
40. 
    
41.         ItemTxt.Text = " "
    
42.         QTYTxt.Text = " "
    
43.         Deslbl.Text = " "
    
44. 
    
45. 
    
46. 
    
47.         ItemTxt.Focus()
    
48. 
    
49.     End Sub

复制代码

當我add第一次時，是和database 一樣，但是當我add第二次，他會重複之前的。是用錯了嗎？


請你們幫幫忙，謝謝

winwin0609

這個問題，我做很多次都是一樣。所以想請大哥大姐的幫忙。

我要從database,search desc based on code.

1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   
2.         Item = ItemTxt.Text
   
3.         qty = QTYTxt.Text
   
4.         ds = Deslbl.Text
   
5. 
   
6.         sqlconn = New SqlConnection("Data Source=192.168.1.102\SQLEXPRESS;Initial Catalog=Demo;User Id=HK;Password=hk;")
   
7. 
   
8.         Dim sqlda As SqlDataAdapter = New SqlDataAdapter
   
9. 
   
10.         sqlconn.Open()
    
11.         sqlda.SelectCommand = New SqlCommand("Select FDesc from tblFoodList where FCode = @FoodCode ", sqlconn)
    
12.         sqlda.SelectCommand.Parameters.Add("@FoodCode", SqlDbType.VarChar).Value = ItemTxt.Text
    
13. 
    
14. 
    
15.         sqlda.Fill(OrderDS, "OrderInfo")
    
16.         OrderDT = OrderDS.Tables(0)
    
17.         dgvOrder.DataSource = OrderDT
    
18. 
    
19.         If OrderDT.Rows.Count = 0 Then
    
20.             MsgBox("No this type of food!")
    
21.             ItemTxt.Focus()
    
22.             ItemTxt.Select()
    
23.             ItemTxt.SelectAll()
    
24.             QTYTxt.Text = ""
    
25. 
    
26.         Else
    
27. 
    
28.             ds = OrderDT(0)(0)
    
29.             DataGridView1.Rows.Add(New String() {Item, qty, ds})
    
30. 
    
31.             dgvOrder.Refresh()
    
32. 
    
33. 
    
34. 
    
35.         End If
    
36.         sqlconn.Close()
    
37. 
    
38. 
    
39. 
    
40. 
    
41.         ItemTxt.Text = " "
    
42.         QTYTxt.Text = " "
    
43.         Deslbl.Text = " "
    
44. 
    
45. 
    
46. 
    
47.         ItemTxt.Focus()
    
48. 
    
49.     End Sub

复制代码

當我add第一次時，是和database 一樣，但是當我add第二次，他會重複之前的。是用錯了嗎？


請你們幫幫忙，謝謝

winwin0609

這個問題，我做很多次都是一樣。所以想請大哥大姐的幫忙。

我要從database,search desc based on code.

1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   
2.         Item = ItemTxt.Text
   
3.         qty = QTYTxt.Text
   
4.         ds = Deslbl.Text
   
5. 
   
6.         sqlconn = New SqlConnection("Data Source=192.168.1.102\SQLEXPRESS;Initial Catalog=Demo;User Id=HK;Password=hk;")
   
7. 
   
8.         Dim sqlda As SqlDataAdapter = New SqlDataAdapter
   
9. 
   
10.         sqlconn.Open()
    
11.         sqlda.SelectCommand = New SqlCommand("Select FDesc from tblFoodList where FCode = @FoodCode ", sqlconn)
    
12.         sqlda.SelectCommand.Parameters.Add("@FoodCode", SqlDbType.VarChar).Value = ItemTxt.Text
    
13. 
    
14. 
    
15.         sqlda.Fill(OrderDS, "OrderInfo")
    
16.         OrderDT = OrderDS.Tables(0)
    
17.         dgvOrder.DataSource = OrderDT
    
18. 
    
19.         If OrderDT.Rows.Count = 0 Then
    
20.             MsgBox("No this type of food!")
    
21.             ItemTxt.Focus()
    
22.             ItemTxt.Select()
    
23.             ItemTxt.SelectAll()
    
24.             QTYTxt.Text = ""
    
25. 
    
26.         Else
    
27. 
    
28.             ds = OrderDT(0)(0)
    
29.             DataGridView1.Rows.Add(New String() {Item, qty, ds})
    
30. 
    
31.             dgvOrder.Refresh()
    
32. 
    
33. 
    
34. 
    
35.         End If
    
36.         sqlconn.Close()
    
37. 
    
38. 
    
39. 
    
40. 
    
41.         ItemTxt.Text = " "
    
42.         QTYTxt.Text = " "
    
43.         Deslbl.Text = " "
    
44. 
    
45. 
    
46. 
    
47.         ItemTxt.Focus()
    
48. 
    
49.     End Sub

复制代码

當我add第一次時，是和database 一樣，但是當我add第二次，他會重複之前的。是用錯了嗎？


請你們幫幫忙，謝謝

winwin0609

這個問題，我做很多次都是一樣。所以想請大哥大姐的幫忙。

我要從database,search desc based on code.

1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        Item = ItemTxt.Text        qty = QTYTxt.Text        ds = Deslbl.Text
   
2.         sqlconn = New SqlConnection("Data Source=192.168.1.102\SQLEXPRESS;Initial Catalog=Demo;User Id=HK;Password=hk;")
   
3.         Dim sqlda As SqlDataAdapter = New SqlDataAdapter
   
4.         sqlconn.Open()        sqlda.SelectCommand = New SqlCommand("Select FDesc from tblFoodList where FCode = @FoodCode ", sqlconn)        sqlda.SelectCommand.Parameters.Add("@FoodCode", SqlDbType.VarChar).Value = ItemTxt.Text
   
5. 
   
6.         sqlda.Fill(OrderDS, "OrderInfo")        OrderDT = OrderDS.Tables(0)        dgvOrder.DataSource = OrderDT
   
7.         If OrderDT.Rows.Count = 0 Then            MsgBox("No this type of food!")            ItemTxt.Focus()            ItemTxt.Select()            ItemTxt.SelectAll()            QTYTxt.Text = ""
   
8.         Else
   
9.             ds = OrderDT(0)(0)            DataGridView1.Rows.Add(New String() {Item, qty, ds})
   
10.             dgvOrder.Refresh()
    
11. 
    
12. 
    
13.         End If        sqlconn.Close()
    
14. 
    
15. 
    
16. 
    
17.         ItemTxt.Text = " "        QTYTxt.Text = " "        Deslbl.Text = " "
    
18. 
    
19. 
    
20.         ItemTxt.Focus()
    
21.     End Sub

复制代码

當我add第一次時，是和database 一樣，但是當我add第二次，他會重複之前的。是用錯了嗎？


請你們幫幫忙，謝謝

jinmissing

不太明白你的意思,
你是說當你按了button2第二次以後, DataGridView1的東西會變重複嗎?
如果是, 試試看add之前清一清你的DataGridView1

winwin0609

不太明白你的意思,
你是說當你按了button2第二次以後, DataGridView1的東西會變重複嗎?
如果是, 試試看ad ...
jinmissing 发表于 26-5-2010 08:44 PM

   對，大概是這樣的。清一下哦？DataGridView1.Clear嗎？

winwin0609

還是Datagridview1.Rows.Clear() 呢？