B4X:
Dim req1 As DBRequestManager = CreateRequest
Dim cmd1 As DBCommand = CreateCommand("select_tubiao3",Null)
Wait For (req1.ExecuteQuery(cmd1, 0, Null)) JobDone(j1 As HttpJob)
If j1.Success Then
req1.HandleJobAsync(j1, "req1")
Wait For (req1) req1_Result(res1 As DBResult)
req1.PrintTable(res1)
Dim data4 As List
data4.Initialize
For Each row() As Object In res1.Rows
Dim BUMEN As String = row(res1.Columns.Get("bumena"))
Dim YIYUE As String= row(res1.Columns.Get("一"))
Dim ERYUE As Double = row(res1.Columns.Get("二"))
Dim SANYUE As Double = row(res1.Columns.Get("三"))
Dim SIYUE As Double = row(res1.Columns.Get("四"))
Dim WUYUE As Int = row(res1.Columns.Get("五"))
data4.Add(Array(BUMEN,YIYUE,ERYUE,SANYUE,SIYUE,WUYUE))
Next
B4XTable1.AddColumn("bumen",B4XTable1.COLUMN_TYPE_TEXT)
B4XTable1.AddColumn("YIYUE",B4XTable1.COLUMN_TYPE_TEXT)
B4XTable1.AddColumn("ERYUE",B4XTable1.COLUMN_TYPE_NUMBERS)
B4XTable1.AddColumn("SANYUE",B4XTable1.COLUMN_TYPE_TEXT)
B4XTable1.AddColumn("SIYUE",B4XTable1.COLUMN_TYPE_TEXT)
B4XTable1.AddColumn("WUYUE",B4XTable1.COLUMN_TYPE_TEXT)
B4XTable1.SetData(data4)
B4XTable1.Refresh
Else
Log("ERROR: " & j1.ErrorMessage)
End If
j1.Release