Dim strCn As String
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Vars("gsCpcMs") & "\cpms.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123"
Connections.Add("cpcDB",strCn)
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "sel ect * from DZSQ_KHD_SHENQINGXX wh ere SHENQINGH <> '' and SHENQINGH is not null"
Dim dt As DataTable = cmd.ExecuteReader
Dim drNew As DataRow
For Each dr As DataRow In dt.DataRows
drNew = DataTables("rdCPC申请信息").addnew
drNew("申请编号") = dr("SHENQINGBH")
next
红色字体部分报错：
Exception has been thrown by the target of an invocation.
Conversion from type 'Guid' to type 'String' is not valid.
加cstr()也不行。
咋整？
加好友 
发短信
Post By：2021/5/19 15:46:00 [显示全部帖子]
