none
vb.net进度表和tabindex问题 RRS feed

  • 问题

  •  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    bar ()
    msgbox "OK"
     End Sub

    Function bar()
       
            For x = 1 To 100
            For y = 1 To 2700
             progressbar1.Value = x
            Next
            Next
        
    End Function

    1.为什么我的进度条还没完成,就出现提示框?
    2.progressbar可以设定颜色吗和巴仙吗?
    3.若我有修改,增加,删除等按键钮,我需要每个按键钮都连接数据库吗?可以只连接一次吗?
    4.若数据库没有相关的数据,出现提示框,该怎样写?
    5.为什么textbox.tabindex=0没有被执行?
    6.

    Label1.Text = DataGridView1.Rows(e.RowIndex).Cells("Email").Value
    其中一个Application_Name是没有Email的话,label1.text="NO data".该怎样写??
    2010年8月11日 15:05

答案

  • 你好


    4) 若数据库没有相关的数据,出现提示框,该怎样写?
    我假設你找数据的程式碼會 把數據 放到DataTable 中

    如果是的話 你可以用

    ' tbl 我是用來 暫存 数据的 DataTable 名稱, 你可能會用另的名稱
    If tbl.Rows.COunt<=0 Then
    '没有相关的数据 時想做的事
    Msgbox "没有相关的数据"
    End If


    5.为什么textbox.tabindex=0没有被执行?
    這可能是因為你的 WIN Form 中 已經有另一個 控制項 的Tab Index= 0

    你想把 指標放進 textbox1 嗎?
    如果是的話可以考慮用
    TextBox1.Focus()



    6.

    Label1.Text = DataGridView1.Rows(e.RowIndex).Cells("Email").Value
    其中一个Application_Name是没有Email的话,label1.text="NO data".该怎样写?

    如果你使用 DataGridView1.Rows(e.RowIndex).Cells("Email").Value 而 DataGridView1 中又沒有
    "Email" 這個Field 的話 你的程式應該會 出現錯誤的
    你可以嘗試用Try/Catch 句子來處理
    E.G.
    Try
    Label1.Text = DataGridView1.Rows(e.RowIndex).Cells("Email").Value
     Catch ex As Exception
    label1.text="NO data"

    End Try


    Please correct me if my concept is wrong
    Chi
    • 已标记为答案 ckjason 2010年8月12日 14:34
    2010年8月11日 20:31
    版主