Terradrones
Active Member
Hi All
I need a push\help again please.
On a Road Construction we have what we call "Batterboards" (some people call it Slope Stakes).
I have designed the Input Activity, such that the Surveyor selects the Side (Left or Right...ComboBox), the Condition (Cut or Fill...ComboBox), the BatterSet (you can have than 1 Batter Slope on the same Cross-section...ComboBox), the Stake (Textbox), Slope(Textbox) and the Appendage Data.
Once the Surveyor stores all the Design Data and goes back to that Activity, all the Stakes entered that conform to the Side, Condition and Set will be displayed in a Combobox.
How can I do this?
I know how to do this for a Single Condition.
I need a push\help again please.
On a Road Construction we have what we call "Batterboards" (some people call it Slope Stakes).
I have designed the Input Activity, such that the Surveyor selects the Side (Left or Right...ComboBox), the Condition (Cut or Fill...ComboBox), the BatterSet (you can have than 1 Batter Slope on the same Cross-section...ComboBox), the Stake (Textbox), Slope(Textbox) and the Appendage Data.
Once the Surveyor stores all the Design Data and goes back to that Activity, all the Stakes entered that conform to the Side, Condition and Set will be displayed in a Combobox.
How can I do this?
I know how to do this for a Single Condition.
B4X:
[/
Sub VerNo_SelectedIndexChanged (Index As Int)
Try
WorkItem = VerNo.SelectedItem
Query = "SELECT * FROM VerPi WHERE Stake = ?"
ResultSet =CGlobals.SQL1.ExecQuery2(Query, Array As String (WorkItem))
ResultSet.NextRow
VerStake.Text = NumberFormat2(ResultSet.GetDouble("Stake"),1,3,3,False)
VPILevel.Text = NumberFormat2(ResultSet.GetDouble("VPiLevel"),1,3,3,False)
Length1.Text = NumberFormat2(ResultSet.GetDouble("Length1"),1,3,3,False)
Length2.Text = NumberFormat2(ResultSet.GetDouble("Length2"),1,3,3,False)
CurveType.SelectedIndex=ResultSet.GetString("CType")
Catch
Log(LastException)
CurveType.SelectedIndex=0
End Try
ResultSet.Close
End Sub
]
In VB.net, I did it as such:
[CODE=b4x][/
Sub GetBatter()
Cmd = Con.CreateCommand()
Cmd.CommandText = "Select * From Batter "
'Cmd.CommandText = Text
Reader = Cmd.ExecuteReader()
SelectStake.Items.Clear() : SelectStake.Text = ""
While (Reader.Read())
If Reader.GetValue(0) = Side.Text And Reader.GetValue(1) = Cond.Text And Reader.GetValue(3) = BatterSet.Text Then
SelectStake.Items.Add(Reader.GetValue(2))
End If
End While
Reader.Close()
End Sub
]