..

ArinWarev1/Forms_Basic/fSelectWeatherGroup.vb

@@ -0,0 +1,22 @@
+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