S=New ServiceReference1. ServiceSoapClient ()
Dim ds the As System. Data. The DataSet=s.M D04_Search (UCase (getKey (Me) DDL_IN_MATNR) Text)), UCase (getKey (Me) DDL_IN_WERKS) Text)))
Dim As dt System. Data. DataTable=ds. Tables (0)
'GridView1. The Font. The Size=FontSize. XXLarge
GridView1. The DataSource=dt
The Session (" TaskTable ")=dt
GridView1, Font Size=FontUnit. Point (12)
GridView1. DataBind ()
In the webservice page
If comm. Connection ()=True Then
Comm. REMOVEALL ()
Comm. AddFUNC (" ZPORTAL_MD04 ")
Comm. Export (" IN_MATNR _IN_MATNR
Dim TABLE=comm. RetTable (" OUT_ITAB ")
Dim row_index As Integer
DT=New Data. The DataTable (" OUT_ITAB ")
Dim DAT00 As New Data. The DataColumn: DAT00 ColumnName="DAT00" : DAT00. Caption="" : DAT00. ReadOnly=True: DT. Columns. The Add (DAT00)
For row_index=1 To the TABLE. The RowCount ()
Dim the DR As Data. The DataRow
DR=DT. NewRow
DR (" DAT00 ")=TABLE (row_index, "DAT00"). The ToString ()
Next
The Else
End the If
Dim ds As New DataSet ()
Ds. Tables. The Add (DT)
Here I only write DATOO a field, don't know a at that time, and can have up to ten fields, if the data got here is more than the fields in the table, just data volume is very big, just one visit will be 1 minute or so, and also not to the data, how to improve? If people click on at the same time will last longer SENDOUT timeout, such as, and is 10 minutes, I set, or not to the data, is data deadlock or what? How can you make people faster to get the data at the same time? Solve troublesome everybody a great god, and plus, thank you
CodePudding user response:
When I was in finereport query function can be realized without coding,, VB really complex, programming capacity is slightly larger,