回复: vb2008
#11 变量查询 [memoriesoff 01-17 17:37]
--过程
Namespace DataSet1TableAdapters
    Partial Class ZHSH_MV_SHOPTableAdapter
        Inherits System.ComponentModel.Component
        Public Property SelectCommand() As OracleClient.OracleCommand()
            Get
                If (Me._commandCollection Is Nothing) Then
                    Me.InitCommandCollection()
                End If
                Return Me._commandCollection
            End Get
            Set(ByVal value As OracleClient.OracleCommand())
                Me._commandCollection = value
            End Set
        End Property
        Public Function FillByWhere(ByVal dataTable As DataSet1.ZHSH_MV_SHOPDataTable, ByVal WhereExp As String) As Integer
            Dim stSelect As String
            stSelect = Me._commandCollection(0).CommandText
            Try
                Me._commandCollection(0).CommandText += " WHERE " + WhereExp
                Return Me.Fill(dataTable)
            Catch ex As Exception
            Finally
                Me._commandCollection(0).CommandText = stSelect
            End Try
        End Function
    End Class
End Namespace
--按钮
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim stCustID As String = Trim(TextBox1.Text)
        Dim stShipCntry As String = Trim(TextBox2.Text)
        ' Pass in a SELECT with no WHERE that conforms to the the DataTAble
        ' used by the TableAdapter's DataSet
        Me.ZHSH_MV_SHOPTableAdapter.SelectCommand(0).CommandText = _
        "SELECT * FROM oracle.ZHSH_MV_SHOP"
        ' Build a string cont ..
#12 函数 [memoriesoff 01-18 15:09]
text1满足条件，赋值
If Len(TextBox1.Text) = 4 Then
TextBox2.Text = Replace(TextBox1.Text, 0, 9)
End If
#13 教程 [memoriesoff 01-20 15:33]
DataGridView[attachment=69]
#14 打开一个文件并返回所在路径 [memoriesoff 01-20 17:25]
' 打开一个文件并返回所在路径
Dim OpenFileDialog1 As New OpenFileDialog
OpenFileDialog1.Filter = "Excle文件(*.xls)|*.xls"
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim fileName As String = OpenFileDialog1.FileName
'返回文件所在路径
TextBox1.Text = OpenFileDialog1.FileName
End If

<< 1 2 3 >> (3/3)

回复 发表
主题 版块

返回 首页
登录

PHPWind V7.5 SP2