Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
Dim dt As DataTable
cmd.CommandText = "Select * From {今日金价201609} where 对账品名='" & e.PostValues("对账品名") & "'And 店名='" & e.PostValues("店名") & "'"
dt = cmd.ExecuteReader(True)if dt.datarows.count > 0 then
Dim dr As DataRow = dt.datarows(0)
Dim nms() As String = {"今日金价价格","今日金价价格优恵","今日金价折扣","今日金价金价"} '""
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm)= e.PostValues(nm)
End If
Next
dr.Save()
end if
加好友 
发短信
Post By：2021/8/6 14:24:00 [显示全部帖子]
