老师，我的语法如下，返回的错误讯息是『未将对象引用设置到对象的实例』，请问这样写有错吗？
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "XXX"
Dim dt As DataTable = cmd.ExecuteReader
For Each dr As DataRow In dt.Select("", "FEATURE_GROUP_CODE")
Functions.Execute("SunlikeLoginToken", "XXX", "XXX", "XXX", "XXX")
Dim hc As New HttpClient("http://192.168.0.6/erpapi/INDX/ADDDATA")
hc.Headers.Add("Authorization", Vars("sunlikeToken"))
hc.C
Dim jo As New JObject
jo("PGM") = "INDX" '程序代号
jo("INDX") = New JObject '新增中类资料
jo("INDX")("IDX_NO") = dr("FEATURE_GROUP_CODE").ToString
jo("INDX")("NAME") = dr("FEATURE_GROUP_NAME").ToString
If dr("REMARK").ToString <> "" Then
jo("INDX")("REM") = dr("REMARK").ToString
End If
jo("INDX")("IDX_UP") = "0000000000"
hc.Content = jo.ToString
Dim ret As String = hc.GetData
Output.Show(ret)
Next
加好友 
发短信
Post By：2022/12/5 15:10:00 [显示全部帖子]
