Dim CompanyID As String = Args(0)'ID
Dim TableName As String = Args(1)'表名
Dim Fmat As String = Args(2)'格式如:"000"
Try
Dim hc As new HttpClient("http:\\127.0.0.1\CodeTable.htm")
hc.FormData.Add("CompanyID",CompanyID)
hc.FormData.Add("TableName",TableName)
Dim res As string= hc.GetData(true)
dim max as integer
if integer.TryParse(res,max)
Return Format(max,Fmat)
else
Return ""
end if
Catch ex As Exception
Return ""
End Try
加好友 
发短信
Post By：2022/3/6 19:58:00 [显示全部帖子]
