Imports System.Data.SqlClient
Public Class FORM1
Private DBconnString As String = "Server=CW.shscth.com.cn;Database=SCTH;Integrated Security=True;"
Private dtTable1 As New DataTable()
Private Sub FORM1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sqlTable1 As String = "SELECT * FROM 进口分配历史"
Dim sqlTable2 As String = "SELECT * FROM 进口清单历史"
Using conn As New SqlConnection(DBconnString)
Using daTable1 As New SqlDataAdapter(sqlTable1, conn), daTable2 As New SqlDataAdapter(sqlTable2, conn)
daTable1.Fill(dtTable1)
daTable2.Fill(dtTable2)
End Using
End Using
DataGridView1.DataSource = dtTable1
DataGridView2.DataSource = dtTable2
Dim dt日期 As DataTable = dtTable1.DefaultView.ToTable(True, "日期")
ComboBox日期.DataSource = dt日期
ComboBox日期.DisplayMember = "日期"
ComboBox日期.ValueMember = "日期"
ComboBox日期.SelectedIndex = -1
End Sub
Private Sub ComboBox日期_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox日期.SelectedIndexChanged
ComboBox供应商.DataSource = Nothing
If ComboBox日期.SelectedIndex = -1 Then Return
Dim dv日期 As New DataView(dtTable1)
Dim selectedDate As Date
If Date.TryParse(ComboBox日期.SelectedValue.ToString(), selectedDate) Then
dv日期.RowFilter = "日期 = #" & selecteddate.ToString() & "#"
End If
Dim dt供应商 As DataTable = dv日期.ToTable(True, "供应商")
ComboBox供应商.DataSource = dt供应商
ComboBox供应商.DisplayMember = "供应商"
ComboBox供应商.ValueMember = "供应商"
ComboBox供应商.SelectedIndex = -1
DataGridView1.DataSource = dv日期
End Sub
Private Sub ComboBox供应商_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox供应商.SelectedIndexChanged
ComboBox流水号.DataSource = Nothing
If ComboBox供应商.SelectedIndex = -1 Then Return
Dim dv供应商 As New DataView(dtTable1)
dv供应商.RowFilter = "供应商 = '" & ComboBox供应商.SelectedValue.ToString() & "' "
Dim dt流水号 As DataTable = dv供应商.ToTable(True, "流水号")
ComboBox流水号.DataSource = dt流水号
ComboBox流水号.DisplayMember = "流水号"
ComboBox流水号.ValueMember = "流水号"
ComboBox流水号.SelectedIndex = -1
DataGridView1.DataSource = dv供应商
End Sub
Private Sub ComboBox流水号_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox流水号.SelectedIndexChanged
If ComboBox流水号.SelectedIndex = -1 Then Return
Dim dv流水号 As New DataView(dtTable1)
dv流水号.RowFilter = "流水号 = '" & ComboBox流水号.SelectedValue.ToString() & "' "
DataGridView1.DataSource = dv流水号
End Sub
