For Each dr As DataRow In DataTables("批发价").DataRows
Dim rqi As Date = cmd.CommandText = " insert into {init_LKY_AMBNBJYJ}(INIT_INDEX,adate) values (" & dr("INIT_INDEX") & "," & Format(dr("日期"), "yyyy-mm-dd") & " )"
cmd.ExecuteNonQuery()
Next转换日期类型报错
https://www.baidu.com/s?wd=orale%20insert%20into%20%E6%97%A5%E6%9C%9F
Dim rqi As Date = cmd.CommandText = " insert into {init_LKY_AMBNBJYJ}(INIT_INDEX,adate) values (" & dr("INIT_INDEX") & ",TO_DATE('" & Format(dr("日期"), "yyyy-
MM-dd") & "', 'YYYY-MM-DD'))"