22 lines
671 B
VB.net
22 lines
671 B
VB.net
Public Class fSelectWeatherGroup
|
|
Private Sub fSelectArea_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
bsArea1.DataSource = DSET1
|
|
bsArea2.DataSource = DSET2
|
|
bsArea1.Filter = "code like '%0000'"
|
|
bsArea2.Filter = "code = 'test'"
|
|
|
|
cmbArea1.DisplayMember = "name"
|
|
cmbArea1.ValueMember = "code"
|
|
cmbArea2.DisplayMember = "name"
|
|
cmbArea2.ValueMember = "code"
|
|
cmbArea1.DataSource = bsArea1
|
|
cmbArea2.DataSource = bsArea2
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btOK.Click
|
|
|
|
DialogResult = DialogResult.OK
|
|
End Sub
|
|
End Class |