在TextBox中显示数据库值，结束定义的字符串的值 [英] Displaying Database values in TextBox, The values which ends defined string

问题描述

我在数据库中有一些字符串值，字符串值以K1，K2，K3，J1，K2，J3结束
这个值我希望在6个文本框中显示，I使用以下<   b  >  code1：<   / b  > ，
 
 
 
 1.如果数据库有K1，K2，J1，J2，那么它应显示
在Textbox1中：K1 
 TextBox2：K2 
 TextBox3：<  空 >  
 TextBox4：J1 
 TextBox5：J2 
 TextBox6：<   empty  >  
 2.如果数据库只有J1，J2，J3那么它应该显示
在TextBox1中：J1 
 TextBox2：J2 
 Tex tBox3：J3 
 TextBox4：<   empty   >  
 TextBox5：<   empty  >  
 TextBox6：<   empty  >  
 3.如果数据库有K1，则J1然后
在TextBox1中：K1 
 TextBox2：< ;  空 >  
 TextBox3：<  空 >  
 TextBox4：J1 
 TextBox5：<  空 >  
 TextBox6：<  空 >  
 
 
 
 
 
 
 
 AL00CK1 
 AL00CK2 
 AL00CK3 
 AL00CJ1 
 AL00CJ2 
 AL00CJ3 
 
 
 
 <   b  > 代码1：<   / b  >  
 
 
如果dt.Rows.Count> 0然后
 Me.EUtran1_txt.Text = dt.Rows（0）.Item（EUtranCellFDD_Name）
否则
 EUtran2_txt.Clear（）
结束如果
 
如果dt.Rows.Count> 1然后
 Me.EUtran2_txt.Text = dt.Rows（1）.Item（EUtranCellFDD_Name）
 Else 
 EUtran2_txt.Clear（）
 End if 
 
如果dt.Rows.Count> 2然后
 Me.EUtran3_txt.Text = dt.Rows（2）.Item（EUtranCellFDD_Name）
否则
 EUtran3_txt.Clear（）
结束如果
 
如果dt.Rows.Count> 3然后
 Me.EUtran4_txt.Text = dt.Rows（3）.Item（EUtranCellFDD_Name）
否则
 EUtran4_txt.Clear（）
结束如果
 
如果dt.Rows.Count> 4然后
 Me.EUtran5_txt.Text = dt.Rows（4）.Item（EUtranCellFDD_Name）
否则
 EUtran5_txt.Clear（）
结束如果
 
如果dt.Rows.Count> 5然后
 Me.EUtran6_txt.Text = dt.Rows（4）.Item（EUtranCellFDD_Name）
否则
 EUtran6_txt.Clear（）
结束如果

解决方案

这不是最好的方法，我用一个字符串列表作为例子，我真的不明白你为什么要尝试要做到这一点。但我认为这个粗略的代码可以满足您的需求

  Dim  stringList 作为 新列表（   String ）（）从{_ 
   AL00CK1，_ 
   AL00CK3，_ 
   AL00CJ1，_ 
   AL00CJ2 _ 
} 
 对于 每个 s 作为 字符串 在 stringList 
 如果 s.EndsWith（  J1）然后 
 textBox1.Text = s 
 结束 如果 
 如果 s.EndsWith（  J2）然后 
 textBox2.Text = s 
 结束 如果 
 如果 s.EndsWith（   J3）然后 
 textBox3.Text = s 
 结束 如果 
 如果 s .EndsWith（  K1）然后 
 textBox4.Text = s 
 结束 如果 
 如果 s.EndsWith（  K2 ）然后 
 textBox5.Text = s 
 结束 如果 
 如果 s.EndsWith（  K3）然后 
 textBox6.Text = s 
 
 结束 如果 
 下一步 

I have some String values in Database, the string values ends with K1,K2,K3,J1,K2,J3
This values I want to display in 6 Textboxs, I'm using below <b>code1:</b>,



1. If Database has K1,K2,J1,J2 , then it should show
    In Textbox1: K1
       TextBox2: K2
       TextBox3: <empty>
       TextBox4: J1
       TextBox5: J2
       TextBox6: <empty>
2. If Database has only J1,J2,J3 Then it should show
    In TextBox1: J1
       TextBox2: J2
       TextBox3: J3
       TextBox4: <empty>
       TextBox5: <empty>
       TextBox6: <empty>
3. If Database has K1,J1 then
    In TextBox1: K1
       TextBox2: <empty>
       TextBox3: <empty>
       TextBox4: J1
       TextBox5: <empty>
       TextBox6: <empty>







AL00CK1
AL00CK2
AL00CK3
AL00CJ1
AL00CJ2
AL00CJ3



<b>Code1:</b>


        If dt.Rows.Count > 0 Then
            Me.EUtran1_txt.Text = dt.Rows(0).Item("EUtranCellFDD_Name")
        Else
            EUtran2_txt.Clear()
        End If

        If dt.Rows.Count > 1 Then
            Me.EUtran2_txt.Text = dt.Rows(1).Item("EUtranCellFDD_Name")
        Else
            EUtran2_txt.Clear()
        End If

        If dt.Rows.Count > 2 Then
            Me.EUtran3_txt.Text = dt.Rows(2).Item("EUtranCellFDD_Name")
        Else
            EUtran3_txt.Clear()
        End If

        If dt.Rows.Count > 3 Then
            Me.EUtran4_txt.Text = dt.Rows(3).Item("EUtranCellFDD_Name")
        Else
            EUtran4_txt.Clear()
        End If

        If dt.Rows.Count > 4 Then
            Me.EUtran5_txt.Text = dt.Rows(4).Item("EUtranCellFDD_Name")
        Else
            EUtran5_txt.Clear()
        End If

        If dt.Rows.Count > 5 Then
            Me.EUtran6_txt.Text = dt.Rows(4).Item("EUtranCellFDD_Name")
        Else
            EUtran6_txt.Clear()
        End If

解决方案

This is not the best way of doing it,i use a list of strings as an example, and i don't really understand why are you trying to do that. But i think this rough code do what you wants

Dim stringList As New List(Of String)() From { _
    "AL00CK1", _
    "AL00CK3", _
    "AL00CJ1", _
    "AL00CJ2" _
}
For Each s As String In stringList
    If s.EndsWith("J1") Then
        textBox1.Text = s
    End If
    If s.EndsWith("J2") Then
        textBox2.Text = s
    End If
    If s.EndsWith("J3") Then
        textBox3.Text = s
    End If
    If s.EndsWith("K1") Then
        textBox4.Text = s
    End If
    If s.EndsWith("K2") Then
        textBox5.Text = s
    End If
    If s.EndsWith("K3") Then
        textBox6.Text = s

    End If
Next

这篇关于在TextBox中显示数据库值，结束定义的字符串的值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！